Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Tmpx = X
Tmpy = Y
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Move Me.Left + X - Tmpx, Me.Top + Y - Tmpy
End If
End Sub
Private Sub Image_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Tmpx = X
Tmpy = Y
End If
End Sub
Private Sub Image_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Move Me.Left + X - Tmpx, Me.Top + Y - Tmpy
End If
End Sub