by Mark (6 Submissions)
Category: Games
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Mon 17th November 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Racing shape game.
VBcoders
Dim ww As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyShift Then
Shape1.Top = Shape1.Top - 100
If Shape1.Top < Line1.Y1 - 200 Then
MsgBox "you win circle!"
If MsgBox("would you like to play again?", vbYesNo) = vbYes Then
Shape1.Top = Line1.Y1 + 3480
Shape2.Top = Line1.Y1 + 3480
w = w + 1
Text1.Text = w
Else
End
End If
End If
End If
If KeyCode = vbKeyUp Then
Shape2.Top = Shape2.Top - 100
If Shape2.Top < Line1.Y2 - 200 Then
MsgBox "you win rounded rectangle!"
If MsgBox("would you like to play again?", vbYesNo) = vbYes Then
Shape1.Top = Line1.Y1 + 3480
Shape2.Top = Line1.Y1 + 3480
ww = ww + 1
Text2.Text = ww
Else
End
End If
End If
End If
End Sub
Private Sub Form_Load()
MsgBox "This is a Race! Hit the shift key to move the circle and hit the up arrow to move the rounded rectangle."
w = 0
ww = 0
End Sub