Option Explicit

Dim gex As Single, gey As Single
Dim geschw As Single
Dim xx As Single, yy As Single

Private Sub Form_Load()
  geschw = 50
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
      X As Single, Y As Single)
  xx = X
  yy = Y

  If xx = 0 Then xx = 1
  If yy = 0 Then yy = 1
End Sub

Private Sub Timer1_Timer()
  If (b.Left - xx) <> 0 Then gey = (b.Top - yy) / (b.Left - xx)

  gex = 1

  If gey < -1 Then gex = 1 / (gey - (2 * gey)): gey = -1
  If gey > 1 Then gex = 1 / gey: gey = 1

  If xx > b.Left - 50 And xx < b.Left + 100 And _
      yy > b.Top - 50 And yy < b.Top + 100 Then Exit Sub
  If xx < b.Left Then b.Top = b.Top - (gey * geschw)
  If xx > b.Left Then b.Top = b.Top + (gey * geschw)

  If xx < b.Left Then b.Left = b.Left - (gex * geschw)
  If xx > b.Left Then b.Left = b.Left + (gex * geschw)

End Sub