• Home
 · 
• Games
 · 
• Racing shape game.

Racing shape game.

Racing shape game.

Rate Racing shape game.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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