Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, _
  lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
 
Private FrmPt As POINTAPI
 
Private Sub Form_Load()
   ClientToScreen Me.hwnd, FrmPt
   Timer1.Interval = 50
End Sub
 
Private Sub Timer1_Timer()
   Dim FrmNew As POINTAPI
   ClientToScreen Me.hwnd, FrmNew
   If FrmNew.x <> FrmPt.x Or FrmNew.y <> FrmPt.y Then
      MsgBox "Uppsss..... Form wurde bewegt!"
   End If
End Sub