bom dia
como que faco pra contar com esse exemplo, so que queria contar com sleep e nao usar o form_timer() do formulario
Dim X As Byte
Private Sub btnTeste_Click()
Me.TimerInterval = 1000
End Sub
Private Sub Form_Timer()
If X = 100 Then
Me.TimerInterval = 0
Me.lbAviso.Visible = False
Me.Gif89a0.Visible = False
Exit Sub
Else
Me.Gif89a0.Visible = True
Me.lbAviso.Visible = True
X = X + 1
Me.lbAviso.Caption = X & " Arquivo(s)"
End If
End Sub
como que faco pra contar com esse exemplo, so que queria contar com sleep e nao usar o form_timer() do formulario
Dim X As Byte
Private Sub btnTeste_Click()
Me.TimerInterval = 1000
End Sub
Private Sub Form_Timer()
If X = 100 Then
Me.TimerInterval = 0
Me.lbAviso.Visible = False
Me.Gif89a0.Visible = False
Exit Sub
Else
Me.Gif89a0.Visible = True
Me.lbAviso.Visible = True
X = X + 1
Me.lbAviso.Caption = X & " Arquivo(s)"
End If
End Sub