Galera, tudo certo?

 

Procuro um comando de espera, ex. como o delay( milisegundos) usado em Pascal.

Em outras linguagens tem um wait, e assim vai.

Mas eu testei estas e nao deu certo, nao.

 

Valeu

Olá,

 

o VB não tem, mas vc pode usar uma API e criar uma função, aí vai pra vc mastigado.

 

'Ponha isto num MODULE

Public Declare Function GetTickCount Lib "kernel32.dll" () As Long
Public Function Wait(ByVal TimeToWait As Long) 'TimeToWait EM Segundos
    Dim EndTime As Long
    EndTime = GetTickCount + TimeToWait * 1000
    Do Until GetTickCount > EndTime

        DoEvents
        Loop
End Function

 

 

Para esperar use esta sintaxe : Wait N aonde N está em segundos

 

Exemplo:

 

Dim i as integer

 

for i = 1 to 10

    Beep

    wait i

next