vb»­¶à±ßÐÎÎÊÌ⣨ÓдúÂ룩

Dim firstmousedown As Boolean 'ΪTrueʱ±íʾÊǵÚÒ»´Î·¢ÉúMousedownʼþ]
Private Type point
X As Double
Y As Double
End Type
Dim oldpoint As point '¼Ç¼ǰһ¸öµã
Dim firstpoint As point 'µÚÒ»¸öµã
Dim a As point

Private Sub picture1_DblClick()
Picture1.Line (firstpoint.X, firstpoint.Y)-(oldpoint.X, oldpoint.Y)
firstpoint.X = oldpoint.X
firstpoint.Y = oldpoint.Y
oldpoint.X = oldpoint.X
oldpoint.Y = oldpoint.Y
Print oldpoint.X
End Sub

Private Sub Form_Load()
firstmousedown = True
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If firstmousedown = True Then
firstpoint.X = X
firstpoint.Y = Y
End If
Line1.X1 = X
Line1.Y1 = Y
Line1.X2 = X
Line1.Y2 = Y
Line1.Visible = True
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If firstmousedown = True Then
Line1.X1 = firstpoint.X
Line1.Y1 = firstpoint.Y
Line1.X2 = X
Line1.Y2 = Y
Else
Line1.X1 = oldpoint.X
Line1.Y1 = oldpoint.Y
Line1.X2 = X
Line1.Y2 = Y
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If firstmousedown = True The