VERSION 5.00 Begin VB.Form Form1 BackColor = &H00808080& Caption = "Loner Pong - Jason Hayes" ClientHeight = 4785 ClientLeft = 60 ClientTop = 450 ClientWidth = 7170 LinkTopic = "Form1" ScaleHeight = 4785 ScaleWidth = 7170 StartUpPosition = 3 'Windows Default Begin VB.Timer Timer2 Interval = 200 Left = 480 Top = 3720 End Begin VB.CommandButton winreset Caption = "YOU WIN!!! RESTART" Height = 375 Left = 2400 TabIndex = 2 Top = 2040 Visible = 0 'False Width = 2535 End Begin VB.CommandButton reset Caption = "GAME OVER!!! RESTART" Height = 375 Left = 2400 TabIndex = 1 Top = 2400 Visible = 0 'False Width = 2535 End Begin VB.Timer Timer1 Interval = 10 Left = 720 Top = 2520 End Begin VB.Label Label1 BackStyle = 0 'Transparent BeginProperty Font Name = "MS Sans Serif" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 1200 TabIndex = 3 Top = 2520 Width = 5175 End Begin VB.Shape pad BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 255 Left = 2640 Top = 4560 Width = 1455 End Begin VB.Label scorecard Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H80000005& BackStyle = 0 'Transparent Caption = "Score : 0" BeginProperty Font Name = "MS Sans Serif" Size = 13.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 360 Left = 5760 TabIndex = 0 Top = 120 Width = 1125 End Begin VB.Shape ball BackColor = &H000000FF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 375 Left = 0 Shape = 3 'Circle Top = 0 Width = 375 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 95 Left = 6600 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 94 Left = 6000 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 93 Left = 5400 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 92 Left = 4800 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 91 Left = 4200 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 90 Left = 3600 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 89 Left = 3000 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 88 Left = 2400 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 87 Left = 1800 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 86 Left = 1200 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 85 Left = 600 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 84 Left = 0 Shape = 1 'Square Top = 4200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 83 Left = 6600 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 82 Left = 6000 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 81 Left = 5400 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 80 Left = 4800 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 79 Left = 4200 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 78 Left = 3600 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 77 Left = 3000 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 76 Left = 2400 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 75 Left = 1800 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 74 Left = 1200 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 73 Left = 600 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 72 Left = 0 Shape = 1 'Square Top = 3600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 71 Left = 6600 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 70 Left = 6000 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 69 Left = 5400 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 68 Left = 4800 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 67 Left = 4200 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 66 Left = 3600 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 65 Left = 3000 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 64 Left = 2400 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 63 Left = 1800 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 62 Left = 1200 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 61 Left = 600 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 60 Left = 0 Shape = 1 'Square Top = 3000 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 59 Left = 6600 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 58 Left = 6000 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 57 Left = 5400 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 56 Left = 4800 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 55 Left = 4200 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 54 Left = 3600 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 53 Left = 3000 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 52 Left = 2400 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 51 Left = 1800 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 50 Left = 1200 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 49 Left = 600 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 48 Left = 0 Shape = 1 'Square Top = 2400 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 47 Left = 6600 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 46 Left = 6000 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 45 Left = 5400 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 44 Left = 4800 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 43 Left = 4200 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 42 Left = 3600 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 41 Left = 3000 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 40 Left = 2400 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 39 Left = 1800 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 38 Left = 1200 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 37 Left = 600 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 36 Left = 0 Shape = 1 'Square Top = 1800 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 35 Left = 6600 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 34 Left = 6000 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 33 Left = 5400 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 32 Left = 4800 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 31 Left = 4200 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 30 Left = 3600 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 29 Left = 3000 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 28 Left = 2400 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 27 Left = 1800 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 26 Left = 1200 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 25 Left = 600 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 24 Left = 0 Shape = 1 'Square Top = 1200 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 23 Left = 6600 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 22 Left = 6000 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 21 Left = 5400 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 20 Left = 4800 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 19 Left = 4200 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 18 Left = 3600 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 17 Left = 3000 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 16 Left = 2400 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 15 Left = 1800 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 14 Left = 1200 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 13 Left = 600 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 12 Left = 0 Shape = 1 'Square Top = 600 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 11 Left = 6600 Shape = 1 'Square Top = 0 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 10 Left = 6000 Shape = 1 'Square Top = 0 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 9 Left = 5400 Shape = 1 'Square Top = 0 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 8 Left = 4800 Shape = 1 'Square Top = 0 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 7 Left = 4200 Shape = 1 'Square Top = 0 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 6 Left = 3600 Shape = 1 'Square Top = 0 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 5 Left = 3000 Shape = 1 'Square Top = 0 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 4 Left = 2400 Shape = 1 'Square Top = 0 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 3 Left = 1800 Shape = 1 'Square Top = 0 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 2 Left = 1200 Shape = 1 'Square Top = 0 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index = 1 Left = 600 Shape = 1 'Square Top = 0 Width = 615 End Begin VB.Shape Shape1 BackColor = &H00FFFFFF& BackStyle = 1 'Opaque BorderColor = &H00404040& BorderStyle = 0 'Transparent Height = 615 Index = 0 Left = 0 Shape = 1 'Square Top = 0 Width = 615 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim X As Integer, Y As Integer, score As Integer, z As Integer 'integers to be used Const numcells = 96 'number of shapes in my array Private Sub Form_mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' x and y single are the values for the pad.Left = X - pad.Width / 2 ' ill admit i found this piece of code on a shooting type game i found and modified it. End Sub ' i cant get over how simple mouse control in VB is, 'PLEASE NOTE MR HODGSON!! 'The coding related to the movement of the ball away from the pad, specifically its direction is crappy, 'i know this but i honestly cannot think of a way to improve it. my control array is in the background's random 'colour generation and there is a loop built in, in the scoring and the evantual "win". 'i took the coding for the mouse movement from an example space game i was shown and the array coding was taken from 'an exercise we did.I put in some notes with the pad's directional coding to make it clear how i did it. im not ' sure if my use of tabs with all the end if's is correct, i assume i was supposed to align them with their corresponding 'if's but if i got it wrong then sorry. Private Sub Form_Load() ball.Left = 2500 ' sets the position the ball heads to first ball.Top = 1300 X = -50 'initial speed Y = -50 End Sub Private Sub Timer1_Timer() ball.Move ball.Left + X, ball.Top + Y If ball.Top <= 0 Then 'if top of ball is above o ( top of screen )then Y = Y * -1 'reverse the y axis movement End If If ball.Left <= 0 Then ' the the ball's left side is 0, then X = X * -1 ' reverse x axis movement End If If ball.Left + ball.Width >= Me.ScaleWidth Then ' this bit adds the width of the ball to the left side, working out if its past the forms width on the right side. if it is then X = X * -1 'reverse the x axis movement 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 the right of the pad ' its game over basically reset.Visible = True 'show the reset button Timer1.Enabled = False ' pauses the game Label1.Caption = "" Else ' if it didnt fail, it must have succeeded ( hit the paddle) Y = Y * -1.05 'increase ball speed, its pretty slow to make it possible X = X * 1.05 score = score + 1 ' add 1 to the score Randomize If score >= 0 And score <= 9 Then For z = 0 To numcells - 1 ' declares the control array Shape1(z).BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) ' randomizes their colour Next z ' can i class this as my loop? End If scorecard.Caption = "Score: " & score ' sets the score label to the string "score: " + the score integer If (ball.Left + ball.Width / 2) < (pad.Left + pad.Width / 2) Then ' if the ball is to the left of the pads middle then If X > 0 Then 'if it's going right X = X * -1 'make it go left End If Else ' the ball must be to the right of the pad If X < 0 Then 'if it's going left X = X * -1 'make it go right End If End If End If End If If score = 30 Then 'if statement checling if score is 30, if it is then winreset.Visible = True ' shows the win button Timer1.Enabled = False ' pauses the game End If End Sub Private Sub Timer2_Timer() If score = 0 Then ball.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) ' every 0.1 secs, changes colour of the ball to random Label1.Caption = "" End If If score > 0 And score <= 9 Then ball.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) ' every 0.1 secs, changes colour of the ball to random Label1.Caption = "You are Tripping Out!" Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End If If score >= 10 And score <= 19 Then ball.BackColor = vbBlack ball.BorderColor = &HC0C0C0 ball.BorderStyle = 1 For z = 0 To numcells - 1 Shape1(z).BackColor = vbBlack ' sets all background tiles to black Next z Label1.Caption = "Welcome to the twilight zone" Label1.ForeColor = &H808080 End If If score >= 20 And score <= 30 Then ball.BackColor = vbWhite ball.BorderColor = &HC0C0C0 ball.BorderStyle = 1 For z = 0 To numcells - 1 Shape1(z).BackColor = vbWhite ' sets all background tiles to white Next z Label1.Caption = " Oh no! A Blizzard!" Label1.ForeColor = &HC0C0C0 End If End Sub Private Sub winreset_Click() ball.Left = 2500 'this information just resets the program, returns it to original state ball.Top = 1300 X = -50 Y = -50 winreset.Visible = False score = 0 scorecard.Caption = "Score: " & score ' tells the label to show string "score" as well as integer score which at start = 0 Label1.Caption = "" Timer1.Enabled = True For z = 0 To numcells - 1 Shape1(z).BackColor = vbWhite ' sets all background tiles to white Next z End Sub Private Sub Reset_Click() ball.Left = 2500 'this information just resets the program, returns it to original state ball.Top = 1300 X = -50 Y = -50 reset.Visible = False score = 0 scorecard.Caption = "Score: " & score ' tells the label to show string "score" as well as integer score which at start = 0 Timer1.Enabled = True For z = 0 To numcells - 1 Shape1(z).BackColor = vbWhite ' sets all background tiles to white Next z End Sub