From 9f2824a8f6f80e1c595be3f623664c2d5f3f7361 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Thu, 17 Oct 2019 16:25:38 +0200
Subject: [PATCH] first fix for jumping textbox

---
 app/DD_PM_WINDREAM/frmFormDesigner.vb | 6 ++++++
 1 file changed, 6 insertions(+)

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