Option Explicit
Private Sub Form_Load()
With StatusBar1.Panels
.Add 1, "Panel1"
.Add 2, "Panel2"
End With
End Sub
Private Sub StatusBar1_PanelClick(ByVal Panel As ComctlLib.Panel)
Debug.Print Panel.Key
End Sub
Private Sub StatusBar1_PanelClick(ByVal Panel As ComctlLib.Panel)
select case Panel.index
case 1
case 2
.....
case 5
'чтой-то сотворить полезное
end select
End Sub
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 192