Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds&)
 
Private Sub MoveControl(C As Control, XPos!, YPos!)
  Dim Pos1%, X1!, Y1!, S1!
  Me.ScaleMode = vbPixels
  C.ZOrder vbBringToFront
  X1 = C.Left
  Y1 = C.Top
  S1 = Sqr((XPos - X1) ^ 2 + (YPos - Y1) ^ 2)
  For Pos1 = 0 To S1
    C.Move X1 + (XPos - X1) / S1 * Pos1, Y1 + (YPos - Y1) / S1 * Pos1
    DoEvents
    Call Sleep(10)
  Next Pos1
End Sub

Gruss,

Zardoz