Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliseconds As Long)
Public Sub Pause(ByVal Millisekunde As Long)
Do While (Millisekunde <> 0)
DoEvents
Sleep (1)
DoEvents
Millisekunde = Millisekunde - 1
Loop
End Sub
 
Private Sub Form_Load()
Me.Show
Pause (1000)
MsgBox "ok"
End
End Sub