Código
Sub Test() Dim iNumero As Integer iNumero = 4 Select Case iNumero Case 1, 5, 8, 9 MsgBox "El número es valido: " + Str(iNumero) Case Else MsgBox "El número no es Valido" End Select End Sub
Saludos
|
|||
|
Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis |
|
|