Private Sub Timer1_Timer()
If ProgressBar1.Value < 100 Then
ProgressBar1.Value = ProgressBar1.Value + 2
ElseIf ProgressBar1.Value = 100 Then
Game.tmrmovemouse.Enabled = False
For i = 0 To 3
Game.imgmouse(i).Enabled = False
Next i
Unload Game
Game.Show
Unload Me
End If
End Sub