Piazza fu un form tre combo, una per ogni tipo.
Piazza un Bottone (Command1).
Incolla nel codice queste righe :
codice:
Option Explicit
Private nChange As Integer
Private Sub Combo1_Change()
nChange = 1
End Sub
Private Sub Combo2_Change()
nChange = 2
End Sub
Private Sub Combo3_Change()
nChange = 3
End Sub
Private Sub Command1_Click()
Call Aggiungi
End Sub
Private Sub Aggiungi()
Dim sItem As String
Select Case nChange
Case 1: sItem = Combo1.Text
Case 2: sItem = Combo2.Text
Case 3: sItem = Combo3.Text
Case 0: sItem = ""
End Select
If sItem <> "" Then
Combo1.AddItem sItem
Combo2.AddItem sItem
Combo3.AddItem sItem
End If
End Sub
L'ho provato e funziona.
Ciao,