Private Sub Form1_MouseMove(ByVal sender As Object, e As MouseEventArgs)Handles _
  Form1.MouseMove
   MoveSchläger(e)'ruft die Methode Move Schläger auf
End Sub
'Dies fügst du noch manuell hinzu:
Private Sub picSchläger_MouseMove(ByVal sender As Object, e As _
  MouseEventArgs)Handles picSchläger.MouseMove
   MoveSchläger(e)'ruft die Methode Move Schläger auf
End Sub
Sub MoveSchläger(e As MouseEventArgs)
   picSchläger.Left = e.X + picSchläger.Height / 2 'positioniert den schläger 
   ' an der MausPosition mittig...
End Sub

Private movementX As Single = 1
Private movmentY As Single = 3
Private Sub tmrMoveBall_Tick(ByVal sender As Object, e As _
  System.EventArgs)Handles tmrMoveBall.Tick
   '#####Hier kommt dann der neue Code( zum bewegen des Balls)#####
   picBall.Left += movementX 'legt die neue Position auf der X-Achse des Balls 
   ' fest(addiert mit movementX)
   picBall.Top += movmentY 'legt die neue Position auf der Y-Achse des Balls 
   ' fest(addiert mit movementY)
 
   If picBall.Left <= 0 Or picBall.Left + picBall.Height >= Me.Height Then ' 
   ' Überprüft Kollision mit dem linken sowie rechten Rand des Formulars
      movementX *= -1 ' ändert die Bewegungsrichtung
   End If
   If picBall.Top <= 0 Then 'Überprüft die Kollision mit dem oberen Rand...
      movementY *= -1 ' ändert die Bewegungsrichtung
   End If
   'Hier kommt dann noch die Kollision mit dem Schläger hin...ich denke das 
   ' kannst du jetzt?!
   '###############################################################
End Sub