Private myMat() As String

Private Sub Command1_Click()
MsgBox myMat(Combo1.ListIndex)
End Sub

Private Sub Form_Load()
Combo1.AddItem "Perugia", 0
Combo1.AddItem "Ancona", 1
ReDim myMat(Combo1.ListCount)
myMat(0) = "PG"
myMat(1) = "AN"
End Sub


funzia