Public Class clsIrgendwas
 
   Enum IntWerte
      Wert1 = 1
      Wert2 = 3
      Wert3 = 2500
   End Enum
 
   Public Sub TuWas(ByVal sText As String, ByVal nWert As IntWerte, ByVal _
     Cancel As Boolean)
      Select Case nWert
         Case IntWerte.Wert1
            '...
         Case IntWerte.Wert2
            '...
         Case IntWerte.Wert3
            '...
      End Select
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control