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

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control