Miscellany

Dim t As Integer
Dim s As Integer
Dim p As Boolean
Dim i As Integer
Dim newgame As Integer


Private Sub cmdend_Click()
End
End Sub

Private Sub command2_click()
s = 0
MsgBox "Click on a mouse to make it disappear and to get points", vbOKOnly, "Directions"
tmrmovemouse.Enabled = True
For i = 0 To 3
imgmouse(i).Enabled = True
Next i
lblscore.Caption = " "
Command5.Visible = True
command2.Enabled = False
command2.Visible = False
End Sub

Private Sub command5_click()
If p = True Then
Command5.Caption = "Pause"
tmrmovemouse.Enabled = True
For i = 0 To 3
imgmouse(i).Enabled = True
Next i
p = False
ElseIf p = False Then
Command5.Caption = "Resume"
tmrmovemouse.Enabled = False
For i = 0 To 3
imgmouse(i).Enabled = False
Next i
p = True
End If
End Sub

Private Sub Form_Load()
p = False
tmrmovemouse.Enabled = False
For i = 0 To 3
imgmouse(i).Enabled = False
Next i
lblLevel.Caption = "0"
Randomize
End Sub

Private Function RandomNumBetween(ByVal LowerLimit As Long, ByVal UpperLimit As Long) As Long
RandomNumBetween = Rnd * (UpperLimit - LowerLimit) + LowerLimit
End Function

Private Sub imgmouse_Click(Index As Integer)
imgmouse(Index).Visible = False
Call Scorecheck
End Sub

Private Sub tmrmovemouse_Timer()
For i = 0 To 3
imgmouse(i).Top = Format(RandomNumBetween(120, 4640))
imgmouse(i).Left = Format(RandomNumBetween(120, 3435))
Next i
End Sub

Private Sub Scorecheck()
s = s + 1
lblscore.Caption = s
Select Case s
Case 4
lblLevel.Caption = "2"
tmrmovemouse.Interval = 900
For i = 0 To 3
    imgmouse(i).Visible = True
    Next i
Case 8
lblLevel.Caption = "3"
tmrmovemouse.Interval = 800
For i = 0 To 3
    imgmouse(i).Visible = True
    Next i
Case 12
lblLevel.Caption = "4"
tmrmovemouse.Interval = 700
For i = 0 To 3
    imgmouse(i).Visible = True
    Next i
Case 16
lblLevel.Caption = "5"
tmrmovemouse.Interval = 600
For i = 0 To 3
    imgmouse(i).Visible = True
    Next i
Case 20
lblLevel.Caption = "6"
tmrmovemouse.Interval = 500
For i = 0 To 3
    imgmouse(i).Visible = True
    Next i
Case 24
lblLevel.Caption = "7"
tmrmovemouse.Interval = 400
For i = 0 To 3
    imgmouse(i).Visible = True
    Next i
Case 28
lblLevel.Caption = "8"
tmrmovemouse.Interval = 300
For i = 0 To 3
    imgmouse(i).Visible = True
    Next i
Case 32
lblLevel.Caption = "9"
tmrmovemouse.Interval = 200
For i = 0 To 3
    imgmouse(i).Visible = True
    Next i
Case 36
newgame = MsgBox("Start a new game?", vbYesNo + vbQuestion, "Wanna play again?")
If newgame = vbYes Then
Game.Enabled = False
Loading.Show
Else
MsgBox "Good bye! :-) "
Unload Me
End If
End Select
End Sub