[color=blue]Option Explicit[/color]
 
[color=blue]Private[/color] OldPosY [color=blue]As Long[/color]
[color=blue]Private[/color] OldPosX [color=blue]As Long[/color]
[color=blue]Private[/color] isMove [color=blue]As Boolean[/color]
 
[color=blue]Private Sub[/color] Form_Load()
  OldPosX = Me.Left
  OldPosY = Me.Top
  isMove = [color=blue]False[/color]
[color=blue]End Sub[/color]
 
[color=blue]Private Sub[/color] Timer1_Timer()
  [color=blue]If[/color] Me.Left <> OldPosX [color=blue]Or[/color] Me.Top _
    <> OldPosY [color=blue]Then[/color]
    OldPosX = Me.Left
    OldPosY = Me.Top
    isMove = [color=blue]True[/color]
  [color=blue]End If[/color]
[color=blue]End Sub[/color]

Viel Spass,
R@lf