窗体上放置一图片框，通过鼠标在图片框内的拖动画红色的实心圆

窗体上放置一图片框，通过鼠标在图片框内的拖动画红色的实心圆

Y)
End If
If Button = 2 Then
Picture1.Cls
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As SingleDim cx As Integer
Dim cy As Integer

Private Sub Picture1_MouseDown(Button As Integer, Y As Single)
If Button = 1 Then
r = Sqr((X - cx) ^ 2 + (Y - cy) ^ 2)
Picture1.Circle (cx, cy).FillStyle = 0
Picture1.FillColor = vbRed
Picture1, X As Single, Y As Single)
If Button = 1 Then
cx = X
cy = Y
PSet (X, Shift As Integer

期待看到有用的回答！