All pastes #509708 Raw Edit

Untitled

public text v1 · immutable
·published 2007-05-25 16:26 UTC
rendered paste body
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