Dim X As Integer, Y As Integer, Score As Integer

Private Sub Form_Load()
Ball.Left = 2500
Ball.Top = 1300
X = -50
Y = -50
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Pad.Left = X - Pad.Width / 2
End Sub

Private Sub Reset_Click()
Ball.Left = 2500 'reset the balls position
Ball.Top = 1300
X = -50 'reset the speed
Y = -50 'reset the speed
Reset.Visible = False
Score = 0 'reset the score
ScoreCard.Caption = "Score: " & Score 'show the score on our label
Me.Caption = "Score: " & Score 'show the score as our forms caption
Timer1.Enabled = True 'start the timer again to get the ball moving
End Sub

Private Sub Timer1_Timer()
Ball.Move Ball.Left + X, Ball.Top + Y
If Ball.Top <= 0 Then
    Y = Y * -1
End If
If Ball.Left <= 0 Then
    X = X * -1
End If
If Ball.Left + Ball.Width >= Me.ScaleWidth Then
    X = X * -1
End If
If Ball.Top + Ball.Height >= Pad.Top Then
    If (Ball.Left + Ball.Width < Pad.Left) Or (Ball.Left > Pad.Left + Pad.Width) Then 'If the ball
                                                          'is to the left or right of the pad then
        Me.Caption = "Game Over" 'set the forms captino to read 'Game Over'
        Reset.Visible = True 'make the reset buttone visible
        Timer1.Enabled = False 'pause the program
    Else
        Y = Y * -1.05 'speed up the ball
        X = X * 1.05
        Score = Score + 1 'add 1 more hit to the score
        ScoreCard.Caption = "Score: " & Score 'show the score on our label
        Me.Caption = "Score: " & Score 'show the score as our forms caption
        If (Ball.Left + Ball.Width / 2) < (Pad.Left + Pad.Width / 2) Then 'if the ball is to the left
                                                                          'of the pads centre then
            If X > 0 Then 'if it is going right
                X = X * -1 'make it go left
            End If
        Else 'the ball must be on the right of the pad
            If X < 0 Then 'if it is going left
                X = X * -1 'make it go right
            End If
        End If
    End If
End If

End Sub

Hi there..

where's the problem? the code alone doesn't help much...

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========