by Ultra_Box (1 Submission)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 15th March 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A little wait and error code to go at the beginnig of a game
API Declarations
`Needs:
`2 forms (default names)
`one timer
`one progress bar
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = "50" Then
MsgError = MsgBox("ERROR: Could not find file", vbCritical + vbRetryCancel, "ERROR")
Select Case MsgError
Case vbCancel
End
End Select
End If
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
Form2.Show
Me.Hide
End If
End Sub