timer v BASICu

V programu probam narest da bi pocakal eno sekundo, potem pa nadaljeval z izvajanjem. Z ukazom TIMER tega ne vem ali se ne da narest al sam jst ne znam. Help!

Torej, Timer komponenta v VB potrebuje v VB nastavitev Interval, ki določa trajanje intervala v ms (milisekundah). Nato v odtivni proceduri dogodka Tick: Private Sub Timer_Tick() Uporabiš spremenljivko tipa Static, ki ti služi za primerjavo oz. štetje pretečenih intervalov - ta vrsta spremenljivke zadrži svojo vrednost tidi ko se procedura konča in ob novem klicu procedure ima vrednost, ki jo je pridobila v prejšnjem izvajanju procedure (podobno kot globalna spremenljivka, le da statična ni vidna zunaj procedure).

Ups...

Probaj importat funkcijo GetTickCount iz knjižnice kernel32.dll (upam da pišeš konzolni program v Win okolju)... Ta ti vrne pretečeni čas v ms. Deklaracija se glasi:

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

Nato zapišeš
StartTime = GetTickCount()
Do While Not(GetTickCount() - StartTime=1000)
Loop

To bo program ustavilo za eno sekundo.