vb6.0。 求代码，＋图

vb6.0。 求代码，＋图

Dim mbMouseDown As Boolean
Dim mnStartX As Long, mnStartY As Long

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mnStartX = X
mnStartY = Y
mbMouseDown = True
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim r As Long
If mbMouseDown = False Then Exit Sub

If Button And vbLeftButton Then
Picture1.Cls '擦去上次画的圆
r = Abs(X - mnStartX) / 2 '圆大小取决于横向移动距离
If X > mnStartX Then
Picture1.Circle (mnStartX + r, mnStartY + r), r, &HFF
Else
Picture1.Circle (mnStartX - r, mnStartY + r), r, &HFF
End If
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
mbMouseDown = False
End Sub