Public Class clsDBClass
  Enum enuFelder
    nicht_definiert
  End Enum
 
  Public Function GetValue(ByVal Feld As enuFelder) As String
    Rückgabe...
  End Function
End Class
 
Public Class clsMitarbeiter
  Inherits clsDBClass
 
  Enum enuFelder
    Vorname
    Nachname
    Strasse
    etc
  End Enum
End Class