VB Code:
  1. Public Sub Main()

  2.     Dim i As Integer

  3.  
  4.     Do While i <= 10

  5.         MsgBox "Loading... (" & i & "secs remaining)"

  6.         i = i + 1

  7.     Loop

  8.  
  9. MsgBox "Loaded! Congratulations!"

  10. Msgbox "Press OK to continue, or Cancel to go on."

  11.  
  12. If vbOK = 1 Then

  13.     Form1.Show

  14. Else

  15.     End

  16. End If

  17. End Sub