vb:画一个米字形,他随窗体改变大小而改变调整??求过程

Private Sub DrawMi(x1 As Single, y1 As Single, x2 As Single, y2 As Single)
Dim midx As Single, midy As Single
Me.Cls
midx = (x1 + x2) / 2
midy = (y1 + y2) / 2
Me.Line (x1, y1)-(x2, y2)
Me.Line (x1, y2)-(x2, y1)
Me.Line (midx, y1)-(midx, y2)
Me.Line (x1, midy)-(x2, midy)
End Sub

Private Sub Form_Resize()
DrawMi 100, 100, Me.Width - 1000, Me.Height - 1000
End Sub

Private Sub Form_Load()
Me.ForeColor = vbRed
Me.AutoRedraw = True
End Sub

Private Sub Form_Resize()
Cls
Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight)
Me.Line (Me.ScaleWidth, 0)-(0, Me.ScaleHeight)
Me.Line (0, Me.ScaleHeight / 2)-(Me.ScaleWidth, Me.ScaleHeight / 2)
Me.Line (Me.ScaleWidth / 2, 0)-(Me.ScaleWidth / 2, Me.ScaleHeight)
End Sub

VB妮可的好用~用那个吧~