EnumCode

Public Enum Formato
Piccolo = 0
Medio = 1
Grande = 3
End Enum

Public Sub MiaRoutine(InputValue As Formato)
'Codice per la routine

End Sub

'Quando chiameremo la MiaRoutine, apparira' accanto l'elenco

'dei valori da passare con i nome utilizzato nella

'dichiarazione Enum