Option Explicit
 
Private Sub Command1_Click()
    MsgBox "Ich habe gedrückt *muuah*"
End Sub
 
Private Sub Form_Load()
    With Timer1
        .Interval = 5000
        .Enabled = True
    End With
End Sub
 
Private Sub Timer1_Timer()
    With Timer1
        .Enabled = False
        Command1_Click
        .Enabled = True
    End With
End Sub

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell