Private Sub Pic1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'按下左键
If Button = 1 Then
If X > 90 Then X = 90
If X < -90 Then X = -90
If Y > 90 Then Y = 90
If Y < -90 Then Y = -90
HScroll1.Value = X
VScroll1.Value = Y
End If
'按下右键
If Button = 2 Then
If X > 90 Then X = 90
If X < -90 Then X = -90
HScroll2.Value = X
End If
End Sub
Private Sub VScroll1_Change()
DrawPart
End Sub
Private Sub VScroll1_Scroll()
DrawPart
End Sub