Private Sub btn_Start_Click()
 
   tmr_SucheLabel.Enabled = True
   Call tmr_SucheLabel_Timer
 
End Sub

Private Sub tmr_SucheLabel_Timer()
 
 
   Static intSwitch As Integer
 
    intSwitch = intSwitch Xor 1
    Me.Caption = intSwitch
    Select Case intSwitch
        Case 1
            lbl_SucheZeichen.Caption = "A"
        Case Else
            lbl_SucheZeichen.Caption = "B"
End Select
 
 
End Sub