• Home
 · 
• Games
 · 
• A little wait and error code to go at the beginnig of a game

A little wait and error code to go at the beginnig of a game

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



Rate A little wait and error code to go at the beginnig of a game

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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