opret en pause

Mener du kan bruge:

sleep(antal_millisekunder)

/N!NJA

Nope , virker ikke.
ikke gyldig kommando.

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



sleep 10

du kunne jo også bare gøre sådan:

Private Sub Form_Load()
  Wait 5
End Sub

Public Sub Wait(ByVal Wait As Single)
Dim sngEnd As Single
  sngEnd = (Timer + Wait)
  Do:  DoEvents
  Loop Until Timer > sngEnd
End Sub

så går dit program ikke i spånet ;)