vb中繪製菱形?