Option Explicit
Dim nGroup As Long
Dim nItem As Long
 
Private Sub Form_Load()
  ' Standardgruppe + Standarditem
  nGroup = OutBar1.GroupStart
  nItem = 1
End Sub
 
Private Sub Outbar1_Click(ByVal Group As Long, ByVal Item As Long)
  ' zuletzt geöffnete Gruppe/Item
  Debug.Print nGroup, nItem
 
  Select Case Group
    ...
  End Select
 
  ' Gruppe/Item "merken"
  nGroup = Group: nItem = Item
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de