Private Sub _TimerClock_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles _TimerClock.Tick
 
        Dim UhrzeitDatum As String = DateTime.Now.ToLongDateString() & " - " & _
          DateTime.Now.ToLongTimeString()
 
        Dim AllForms As FormCollection = My.Application.OpenForms
        Try
            For Each f As Form In AllForms 'Durchläuft alle Formen
                If Not f.Name = "frm01Start" Then
                    CType(f.Controls("_SS"), StatusStrip).Items( _
                      "_ssUhrzeitDatum").Text = UhrzeitDatum
                End If
            Next
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message)
        End Try
 
    End Sub

Ich benutze VS 2005 Prof