Dim Xstart, Ystart, Xshift, Yshift
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" ( _
  ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
 
Private Sub Form_Click()
linrichtung.Visible = False
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
Xstart = X
Ystart = Y
 
linrichtung.X1 = X
linrichtung.X2 = X
linrichtung.Y1 = Y
linrichtung.Y2 = Y
 
linrichtung.Visible = True
 
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
linrichtung.X2 = X
linrichtung.Y2 = Y
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As _
  Single)
 
Xshift = (X - Xstart) / 10
Yshift = (Y - Ystart) / 10
tmrbewegung.Enabled = True
linrichtung.Visible = False
End Sub
 
 
Private Sub tmrbewegung_Timer()
 
imgBall.Left = imgBall.Left + Xshift
imgBall.Top = imgBall.Top + Yshift
 
If imgBall.Top < 0 Then
    Yshift = Yshift * -1
    sndPlaySound App.Path & "\start.wav", SND_ASYNC
End If
If imgBall.Top > (Me.Height - 785) Then
    Yshift = Yshift * -1
    sndPlaySound App.Path & "\start.wav", SND_ASYNC
End If
If imgBall.Left < 0 Then
    Xshift = Xshift * -1
    sndPlaySound App.Path & "\start.wav", SND_ASYNC
End If
If imgBall.Left > (Me.Width - 427) Then
    Xshift = Xshift * -1
    sndPlaySound App.Path & "\start.wav", SND_ASYNC
End If
 
'Me.PSet (imgBall.Left + imgBall.Width / 2, imgBall.Top + imgBall.Height / 2)
 
End Sub