CorelDRAW X6 64位 支持移动窗口

UI/CQL_FIND_UI.bas

@@ -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
 

UI/CorelVBA.bas

@@ -62,7 +62,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
 

UI/Replace_UI.bas

@@ -54,7 +54,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
 

UI/Toolbar.bas

@@ -54,7 +54,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
 

UI/VBA_UI_base.bas

@@ -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)
     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