[Resolvido]Contar numero

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

Dim X As Byte

Private Sub btnTeste_Click()
Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()

*****************************************************
sua intenção aqui é voltar o cronometro para Zero ???
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


sei lá, eu usaria um for ou while.....

obrigado a todos