Kann man sein Programm für eine bestimmte Zeit unterbrechen???

Alle logischen Befehle wie "break", "sleep", "wait", usw. kennt er ja nicht, obwohl die Befehle einen "logischen" Namen haben sollen....

gibt ne sleep api...

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

Hallo,

versuch mal das.

Frank

@roteKugel: geht nicht, er sagt das ich keine Subs im Allgemeinen Teil deklarieren darf und wenn ichs in ne sub packe sagt er "sub ohne end sub"

Private Declare Function GetTickCount Lib "kernel32" () As Long


Public Sub DoWait(al_WaitTime As Long)                         'TimeOut

    Dim ll_StartTime As Long


    ll_StartTime = GetTickCount

    While (GetTickCount - ll_StartTime) < al_WaitTime

        DoEvents

    Wend

End Sub

@roteKugel: geht nicht, er sagt das ich keine Subs im Allgemeinen Teil deklarieren darf und wenn ichs in ne sub packe sagt er "sub ohne end sub"

dann machst du aus dem Public eben ein Private