Que un parámetro de una función ofrezca múltiples opciones

[GeoAvila]

Bueno lo que yo comprendo que deseas hacer es algo como esto..

Código:

    Enum componentes As Integer
        Monitor
        Teclado
        Cpu
        Ups
    End Enum
    Private Sub LlamarFuncionEmum()
        FuncionEnum(componentes.Cpu) 'Aqui el ejemplo de llamada
    End Sub
    Private Function FuncionEnum(ByVal comp As componentes) As Integer
        MsgBox(comp.ToString)
    End Function

para mas info

http://geoavila.com/?p=15

nos vemos..