Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



Private Sub Form_Load()

On Error Resume Next
Show
Dim i
For i = 1 To 10
Sleep 500
DoEvents
Print i
Next

End Sub