[vb6] Da combo a lista

[Gugu]

Ma dimmi un po..
cosa significa "Text" scritto così????

Prova questo:

Private Sub Command1_Click()
List1.AddItem Combo1.Text
Combo1.RemoveItem Combo1.ListIndex


End Sub

Private Sub Command2_Click()
Combo1.AddItem List1.Text
List1.RemoveItem List1.ListIndex

End Sub

Private Sub Form_Load()
Combo1.AddItem "Ciro"
Combo1.AddItem "Salvatore"
Combo1.AddItem "Anna"
End Sub

Vedrai che funzionerà meglio!