Private Sub Form_Load()
   With Combo1(0)
      .AddItem "Item 1"
      .AddItem "Item 2"
      .AddItem "Item 3"
   End With
 
   With Combo1(1)
      .AddItem "Item 1"
      .AddItem "Item 2"
      .AddItem "Item 3"
   End With
 
   With Combo1(2)
      .AddItem "Item 1"
      .AddItem "Item 2"
      .AddItem "Item 3"
   End With
End Sub
 
Private Sub Combo1_Click(Index As Integer)
   TuWas Combo1(Index)
End Sub
 
Private Sub TuWas(cboBox As VB.ComboBox)
   Debug.Print cboBox.Name    ' Name des Controls
   Debug.Print cboBox.Index   ' Index des Controls
   Debug.Print cboBox.Text    ' aktueller Inhalt
End Sub

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