0
Private Sub Form_Load() Combo1.AddItem "Text1" Combo1.AddItem "Text2" Combo1.AddItem "Text3" Combo1.AddItem "Text4" End Sub
Private Sub Combo1_Click() 'ListIndex inicia com 0 (zero) Dim strTeste As String Select Case Combo1.ListIndex Case 0 strTeste = "Text1" Case 1 strTeste = "Text2" Case 2 strTeste = "Text3" Case 3 strTeste = "Text4" End Select If Combo1.Text = strTeste Then MsgBox "OK!" End Sub
Once again, thank you for your help!! :)
– Maradinho PH