Public Enum GradientMode
  LinksRechts = 1
  ObenUnten = 2
  LinksObenRechtsUnten = 3
  RechtsObenLinksUnten = 4
End Enum
 
Public Property Get Gradient() As GradientMode
  ...  
End Property
 
Public Property Let Gradient(ByVal Value As GradientMode)
  ...
End Property

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de