Option Explicit
 
Public Enum myBorderStyle
   Ohne = 0
   Mit = 1
End Enum
 
Public Property Get BorderStyle() As myBorderStyle
   BorderStyle = UserControl.BorderStyle
End Property
 
Public Property Let BorderStyle(ByVal New_BorderStyle As myBorderStyle)
   UserControl.BorderStyle() = New_BorderStyle
End Property

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