Ventana desplegable propia al mandar un parámetro

[RsOfT]

Tengo una curiosidad a ver si esto es posible.

Si tengo esto:

Código:

Private Sub Mi_SubRutina(bolParametro As Boolean)

End Sub 

Cuando yo llame a la subrutina y quiera poner el parámetro, me saldrá un pequeño menú desplegable de true o false para yo escoger.

Mi preguntra es: Es posible que yo cree un parámetro el cual salga una ventanita desplegable con los diferentes posibles parámetros que se le puede enviar a la subrutina al igual que los parámetros tipo boolean?

Interesante pregunta, no creen?
Quién se anima a contestarme

[RsOfT]

A lo mejor no me expliqué bien y plantearé mi pregunta nuevamente.
Lo que quiero hacer no es a nivel de usuario, sino para mi mismo cuando esté programando.

Te explico, imagina que creo la subrutina.

Código:

Private Sub Mi_SubRutina(bolParametro As Boolean)
...
End Sub

Al momento de yo hacer CALL SubRutina(..., como el parámetro que se espera es un valor booleano, me saldrá un menú desplegable en el cual me permitirá escoger entre true or false. Mira la foto que plasmo más abajo.

Ahora bien, yo quisiera crear un tipo de dato que sean valores fijo, por ejemplo:

Código:

Private Sub Mi_SubRutina(bolParametro As MI_TIPO_DATO)
...
End Sub

Entonces, cuando yo llame a la subrutina, me salgan los posibles valores que pudiera tener mi tipo de dato.

Cómo puedo hacer esto?

[RsOfT]

Ya logré hacerlo:

Lo que hice fue crear un tipo de datos enum, as:

Código:

Public Enum Estilo
   Numerico = 1
   Texto = 2
End Enum

Entonces creé mi subrutina asi:

Private Sub nombre(param as Estilo)

end sub

y cuando llamé la subrutina, me salieron los parámetros numerico y texto