allora ho provato a farlo sul mio pc è funziona
nel mio esempio c'era un array di 3 text( 0 , 1 ,2)
che eranro rispettivamente nome cognome e indirizzo
poi c'è anche un combo
Private Sub Combo1_Change()
MsgBox "E' cambiato il valore del combo!"
MsgBox "Il nuovo valore é " & Combo1.List(Combo1.ListIndex)
End Sub
Private Sub Form_Load()
Combo1.Style = 2
End Sub
Private Sub Text1_Change(Index As Integer)
Dim i As String
Select Case Index
Case 0
i = "nome"
Case 1
i = "cognome"
Case 2
i = "indirizzo"
End Select
MsgBox "E' cambiato " & i
End Sub

Rispondi quotando