[VB6] Individuare l'elemento selezionato in una ComboBox

[oregon]

Per fare quello solo quello che chiedi devi scrivere

Private Sub Combo1_Click()
   Dim Utenti As Long
   Utenti = Combo1.ListIndex
   Fascia1.AddItem Utenti
End Sub

ma basta anche

Private Sub Combo1_Click()
   Fascia1.AddItem Combo1.ListIndex
End Sub