Game project part 6

Private Sub Timer1_Timer() 

Label1.Caption = i

i = i + 1

If i = 30 Then

MsgBox ("Time's Up")

Me.Hide

Form2.Show

Form2.lblEnter.Visible = False

Form2.lblExit.Visible = True

Timer1.Enabled = False

End If

End Sub

Form2 codes

Private Sub lblEnter_Click()

form1.Show

Me.Hide

End Sub

Private Sub lblExit_Click()

End

End Sub

Part 5 | Part 1

RAW Game Project

1. Game project part 1
2. Game project part 2
3. Game project part 3
4. Game project part 4
5. Game project part 5
6. Game project part 6