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