Foro de elhacker.net

Private Sub Combo1_Click()
    Text1 = Combo1.List(Combo1.ListIndex)
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "hola"
MsgBox "chau"
Case "chau"
MsgBox "hola"
End Select
End Sub

Private Sub Form_Load()
With Combo1
    .AddItem "hola"
    .AddItem "chau"
End With
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "Salir"
Text1.Text = "Salir del programa"
Case "Ayuda"
Text1.Text = "Muestra una pequeña ayuda"
Case "LOKEKIERAS"
Text1.Text = "Aca va el texto q se me cante la xuxa xD"
Case Else 'en caso de que no diga nada de lo q apuntamos anteriormente (esto se puede sacar)
Text1.Text = "" 'deja el txtbox vacio (esto tmb XD)
End Select
End Sub

Private Sub Text1_Change()
Dim I As Integer
Text1.Text = UCase(Text1.Text)
I = Len(Text1.Text)
Text1.SelStart = I
End Sub