Break out
Dim MPL, MPT As Integer
Dim Slide As Integer
Dim ballL, BallT As Integer
Dim Score As Integer
Private Sub Form_Load()
ballL = -40
BallT = -40
End Sub
Private Sub Timer2_Timer()
ball.Move ball.Left + ballL, ball.Top + BallT
If ball.Top < 0 Then BallT = BallT * -1
If ball.Left < 0 Then ballL = ballL * -1
If ball.Left > Form1.Width - ball.Width Then ballL = ballL * -1
If ball.Top > Form1.Height Then ball.Top = Form1.Height
MPL = ball.Left + (ball.Width / 2)
MPT = ball.Top + (ball.Height / 2)
If MPL > paddle.Left And _
MPL < paddle.Left + paddle.Width And _
MPT > paddle.Top And _
MPT < paddle.Top + paddle.Height Then
If ball.Left < paddle.Left + (7 / 7 * paddle.Width) Then ballL = 40
If ball.Left < paddle.Left + (6 / 7 * paddle.Width) Then ballL = 30
If ball.Left < paddle.Left + (5 / 7 * paddle.Width) Then ballL = 20
If ball.Left < paddle.Left + (4 / 7 * paddle.Width) Then ballL = 0
If ball.Left < paddle.Left + (3 / 7 * paddle.Width) Then ballL = -20
If ball.Left < paddle.Left + (2 / 7 * paddle.Width) Then ballL = -30
If ball.Left < paddle.Left + (1 / 7 * paddle.Width) Then ballL = -40
Label1.Caption = ballL
BallT = BallT * -1
End If
MPL = ball.Left + (ball.Width / 2)
MPT = ball.Top + (ball.Height / 2)
For x = 0 To 91
If MPL > brick(x).Left And _
MPL < brick(x).Left + brick(x).Width And _
MPT > brick(x).Top And _
MPT < brick(x).Top + brick(x).Height And _
brick(x).Visible = True Then
If x = 76 Then paddle.Width = paddle.Width * 2
BallT = BallT * -1
Score = Score + 1
Form1.Caption = Score
Hit color brick make the paddle bigger
brick(x).Visible = False
End If
Next x
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then Slide = -40
If KeyCode = 39 Then Slide = 40
If KeyCode = 80 Then Timer2.Enabled = Not Timer2.Enabled
If KeyCode = 80 Then Timer1.Enabled = Not Timer1.Enabled
If KeyCode = 32 Then
BallT = -40
ballL = -40
ball.Top = paddle.Top - 100
ball.Left = paddle.Left + 100
End If
reset
If KeyCode = 82 Then
For x = 0 To 91
brick(x).Visible = True
Next x
Score = 0
Form1.Caption = Score
End If
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then Slide = 0
If KeyCode = 39 Then Slide = 0
End Sub
Private Sub Timer1_Timer()
paddle.Move paddle.Left + Slide
If paddle.Left > Form1.Width - paddle.Width Then _
paddle.Left = Form1.Width - paddle.Width
If paddle.Left < 0 Then paddle.Left = 0
End Sub
Dim Slide As Integer
Dim ballL, BallT As Integer
Dim Score As Integer
Private Sub Form_Load()
ballL = -40
BallT = -40
End Sub
Private Sub Timer2_Timer()
ball.Move ball.Left + ballL, ball.Top + BallT
If ball.Top < 0 Then BallT = BallT * -1
If ball.Left < 0 Then ballL = ballL * -1
If ball.Left > Form1.Width - ball.Width Then ballL = ballL * -1
If ball.Top > Form1.Height Then ball.Top = Form1.Height
MPL = ball.Left + (ball.Width / 2)
MPT = ball.Top + (ball.Height / 2)
If MPL > paddle.Left And _
MPL < paddle.Left + paddle.Width And _
MPT > paddle.Top And _
MPT < paddle.Top + paddle.Height Then
If ball.Left < paddle.Left + (7 / 7 * paddle.Width) Then ballL = 40
If ball.Left < paddle.Left + (6 / 7 * paddle.Width) Then ballL = 30
If ball.Left < paddle.Left + (5 / 7 * paddle.Width) Then ballL = 20
If ball.Left < paddle.Left + (4 / 7 * paddle.Width) Then ballL = 0
If ball.Left < paddle.Left + (3 / 7 * paddle.Width) Then ballL = -20
If ball.Left < paddle.Left + (2 / 7 * paddle.Width) Then ballL = -30
If ball.Left < paddle.Left + (1 / 7 * paddle.Width) Then ballL = -40
Label1.Caption = ballL
BallT = BallT * -1
End If
MPL = ball.Left + (ball.Width / 2)
MPT = ball.Top + (ball.Height / 2)
For x = 0 To 91
If MPL > brick(x).Left And _
MPL < brick(x).Left + brick(x).Width And _
MPT > brick(x).Top And _
MPT < brick(x).Top + brick(x).Height And _
brick(x).Visible = True Then
If x = 76 Then paddle.Width = paddle.Width * 2
BallT = BallT * -1
Score = Score + 1
Form1.Caption = Score
Hit color brick make the paddle bigger
brick(x).Visible = False
End If
Next x
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then Slide = -40
If KeyCode = 39 Then Slide = 40
If KeyCode = 80 Then Timer2.Enabled = Not Timer2.Enabled
If KeyCode = 80 Then Timer1.Enabled = Not Timer1.Enabled
If KeyCode = 32 Then
BallT = -40
ballL = -40
ball.Top = paddle.Top - 100
ball.Left = paddle.Left + 100
End If
reset
If KeyCode = 82 Then
For x = 0 To 91
brick(x).Visible = True
Next x
Score = 0
Form1.Caption = Score
End If
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then Slide = 0
If KeyCode = 39 Then Slide = 0
End Sub
Private Sub Timer1_Timer()
paddle.Move paddle.Left + Slide
If paddle.Left > Form1.Width - paddle.Width Then _
paddle.Left = Form1.Width - paddle.Width
If paddle.Left < 0 Then paddle.Left = 0
End Sub