Enum MeinTyp
  Auswahl1 = 1
  Auswahl2 = 2
End Enum
 
Function MeineFunktion(Parameter As MeinTyp)
  If Parameter = 2 Then
    ' Auswahl2
  End If
End Function

Cu David
--------------------------------------------
ist eine geniale Erfindung

Q-lympics ist geil