Select Case – Se utiliza para seleccionar entre varias alternativas. En ocasiones, puede sustituir al IF entrelazado.

Ejemplo – usar el proyecto llamado Colores, donde se cambia el color de la forma de acuerdo al número del color seleccionado. Añadir un comando y en su código escribir:

Dim seleccion as integer

seleccion = Val(text1.text)

Select Case seleccion

Case 1

MsgBox “Escogió Rojo”

Form1.Backcolor = vbRed

Case 2

MsgBox “Escogió Verde”

Form1.Backcolor = vbGreen

Case 3

MsgBox “Escogió Azul”

Form1.Backcolor = vbBlue

Case Else

MsgBox “Selección inválida. Favor escoger 1, 2 ó 3”

End Select