Visualbasic Delay()

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

Public Function Delay(xxx As Single) As Single

Dim X As Single

Dim xx As Single

X = GetTickCount()

Do While (xx - X) / 1000 < xxx

DoEvents

xx = GetTickCount

Loop

Delay = X

End Function

'=============

me.text1.text= 1

delay(3)

msgbox "3초가 지났습니다..

'=============

로 하시면 됩니다.

delay(4)로 하시면 4초가 되겠지요....

sleep함수도 있는데..이건 별루에요...

sleep(4)로 하면 4초동안 아무 컨트롤도 안먹혀요...

예를 들면 

delay(0.001)로 하면 1ms delay가 됩니다.