Option Explicit
 
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1
Dim i
Do While True
i = i + 1
Label1.Caption = "schleife: " & i
DoEvents
Loop
End Sub
 
Private Sub Form_Load()
Timer1.Enabled = False
Form1.Caption = "Timer vs Schleife"
End Sub
 
Private Sub Timer1_Timer()
Static i
i = i + 1
Label2.Caption = "Timer: " & i
End Sub