para "aprender a usarla" hice este pequeño programa:
requiere un text y un command
Código:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Cont As Byte
Private Sub Command1_Click()
A:
Cont = Cont + 1
Text1.Text = Cont
If Cont = 20 Then
End
End If
Sleep 1000
GoTo A
End Sub
pero me tira error cuando lo hago.. en realidad se cuelga el programa... q puede ser?? q hago mal?
funciona pero no me muestra el resultado... jeje me acabo de dar cuenta de eso