' Klassenmodul
 
Option Explicit
 
Public Enum MyEnum
   ErsterWert = 1
   ZweiterWert = 2
   DritterWert = 3
End Enum
 
Private cMyProp As MyEnum
 
Public Property Let MyProp(ByVal vData As MyEnum)
   cMyProp = vData
End Property
 
Public Property Get MyProp() As MyEnum
   Set MyProp = cMyProp
End Property

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