¿Cómo usar ComboBox en VB . NET y Combo en VB 6.0?

He aquí un pequeño ejemplo.
[code]
'en VB 6
Private Sub Combo1_Click()
Select Case Combo1.ListIndex

Case 0
MsgBox("Valor 0")
Case 1
MsgBox("Valor 1")
Case 2
MsgBox("Valor 2")
Case Else
MsgBox("Valor no específicado")

End Select
End Sub

[/code]

ahora para VB .NET

[code]
' en el ComboBox
Select Case ComboBox1.SelectedIndex

Case 1
MsgBox("Valor 1")
Case 2
MsgBox("Valor 2")
Case Else
MsgBox("Valor no específicado")



End Select


[/code]


Espero hacer ahora más ejemplos y adjuntar un PDF