diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 2d6abd0..5197d1c 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -628,6 +628,12 @@ Public Class frmFormDesigner Dim CurrentPosition = CurrentControl.Location Dim OldPosition As Point = DirectCast(pgControls.SelectedObject, BaseProperties).Location + If CurrentPosition.X = OldPosition.X + 2 And CurrentPosition.Y = OldPosition.Y + 2 Then + CurrentControl.Location = New Point(CurrentPosition.X - 2, CurrentPosition.Y - 2) + MyBase.Cursor = Cursors.Default + Exit Sub + End If + If Not Point.op_Inequality(CurrentPosition, OldPosition) Then MyBase.Cursor = Cursors.Default Exit Sub