mostrar en un label nombres de archivos de un directorio

[Avellaneda]

Hola, si lo que entendí es que cada cierto tiempo se vayan mostrando los archivos en el label, puedes hacerlo sin necesidad del Timer.
Con la API Sleep:

Código:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim s As String
s = Dir(App.Path & "\*.*")
Do While s <> ""
    Label1.Caption = App.Path & "\" & s
    Sleep 1000  ' esperar un segundo
    s = Dir
    DoEvents
Loop
MsgBox "Fin de archivos"
Label1.Caption = ""
End Sub

Si solamente quieres mostrar los archivos (sin ruta), quita lo marcado en rojo.