' Controls: 1 * Button, 1 * Timer
Private XM!, YM!, TwX!, TwY!
 
Private Sub Form_Load()
 
  Me.ScaleMode = vbPixels
  TwX = Screen.TwipsPerPixelX
  TwY = Screen.TwipsPerPixelY
  Timer1.Interval = 12
  Timer1.Enabled = True
 
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 
  XM = X
  YM = Y
 
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
 
  XM = Command1.Left + X / TwX
  YM = Command1.Top + Y / TwY
 
End Sub
 
Private Sub Timer1_Timer()
 
  Dim DX!, DY!, Speed!, S!
 
  Speed = 2 ' Geschwindigkeit
  With Command1
    DX = XM - .Left - .Width / 2
    DY = YM - .Top - .Height / 2
    S = Sqr(DX * DX + DY * DY)
    If Abs(DX) >= Speed Then .Left = .Left + DX / S * Speed
    If Abs(DY) >= Speed Then .Top = .Top + DY / S * Speed
  End With
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 
  Timer1.Enabled = False
 
End Sub

Gruss,

Zardoz