[kwb]

Ciao a tutti, è la prima volta che metto piede in questa sezione, probabilmente perchè non mi sono mai realmente interessato di programmazione.
Venendo al dunque:
Devo fare un programma per un giocho online utilizzando dei combox.
Quando seleziono un elemento del combobox deve comparire il rispettivo textbox dentro al form, il problema è: come fare?

Io ho provato a fare nel senguente modo:

Option Explicit

Private Sub Form_Load()
'Elementi ComboGemme
Combo1.AddItem "Peridot"
Combo1.AddItem "Garnet"
Combo1.AddItem "Ruby"
Combo1.AddItem "Diamond"
Combo1.AddItem "Sapphire"
Combo1.AddItem "Emerald"
Combo1.AddItem "Topaz"

'Ordinamento ComboGemme
Combo1.List(3) = "Peridot"
Combo1.List(2) = "Garnet"
Combo1.List(4) = "Ruby"
Combo1.List(0) = "Diamond"
Combo1.List(5) = "Sapphire"
Combo1.List(1) = "Emerald"
Combo1.List(6) = "Topaz"

'Elementi ComboGrado
Combo2.AddItem "1"
Combo2.AddItem "2"
Combo2.AddItem "3"
Combo2.AddItem "4"
Combo2.AddItem "5"
Combo2.AddItem "6"
Combo2.AddItem "7"

'Ordinamento ComboGrado
Combo2.List(0) = "1"
Combo2.List(1) = "2"
Combo2.List(2) = "3"
Combo2.List(3) = "4"
Combo2.List(4) = "5"
Combo2.List(5) = "6"
Combo2.List(6) = "7"
End Sub

If Combo1.ListIndex = 0 Then
    Text1.Visible = True
    
  
        
End If

Per 0 ( inserito nell' If ) intendo l'elemento "Diamond" ( in quanto usando l'ordinamento degli elementi, il "Diamond" risulta essere il primo )

Purtroppo non riesco a far visualizzare il Text1 quando nel combobox viene selezionato "Diamond".

La funzione dovrebbe essere:

Se "Diamond" è selezionato allora
Visualizza il Textbox 1         Altrimenti
...

Ovviamente la visibilità del textbox è impostata su False.

Grazie per l'aiuto e spero di essere stato chiaro


Kwb