Option Explicit
 
Dim b As Boolean
 
Private Sub Form_Load()
    Label1 = vbNullString
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    If b Then
        Label1 = "Caption 1"
        b = False
    Else
        Label1 = "Caption 2"
        b = True
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1