@@ -53,7 +53,8 @@ End Sub
Private Sub LOGO_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If Button Then
- Me.Move Me.Left - mX + x, Me.TOP - mY + y
+ Me.Left = Me.Left - mx + x
+ Me.Top = Me.Top - my + y
End If
End Sub
@@ -62,7 +62,8 @@ End Sub
@@ -54,7 +54,8 @@ End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- Me.Move Me.Left - mX + X, Me.Top - mY + Y