Ciao il codice è giusto, sicuramente è l'evento sbagliato :
L'evento CHANGE si verifica quando il testo all'interno della combo lo scrivi in fase di esecuzione, quello che serve a te è l'evento CLICK.
es.
Private Sub Combo1_Change()
'msgbox "evento change"
End Sub
Private Sub Combo1_Click()
msgbox "evento click"
If Combo1.ListIndex = 0 Then
Text1.Visible = True
End If
If Combo1.ListIndex = 1 Then
Text2.Visible = True
End If
End Sub
Ciao
|