Private Sub StatusBar1_PanelClick(ByVal Panel As ComctlLib.Panel)
  Dim panel1 As Boolean
 
  If panel1 = True Then
    panel1 = False
    Panel.Index(1).Picture = imgDatum.Picture
    Panel.Index(1).Style = sbrDate
  Else
    panel1 = True
    Panel.Index(1).Picture = imgUhrzeit.Picture
    Panel.Index(1).Style = sbrTime
  End If
End Sub