Option Explicit
Dim nLeft As Long
Dim nTop As Long
 
Private Sub Form_Load()
  <font color=green>' Ursprungskoordinaten merken</font>
  nLeft = Me.Left
  nTop = Me.Top
 
  <font color=green>' Timer initialisieren</font>
  Timer1.Interval = 50
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  <font color=green>' Position abfragen</font>
  If Me.Left <> nLeft Or Me.Top <> nTop Then
    ' Form wurde verschoben
 
    <font color=green>' ggf. Ursprungsposition wiederherstellen</font>
    Me.Move nLeft, nTop
  End If
End Sub