Imports System.ComponentModel
 
Public Class UserControl1
   Private m_ControlOption As New ControlOption
 
 
   <EditorBrowsable(EditorBrowsableState.Always)> _
   <Browsable(True)> _
   <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
  Public Property ControlOption() As ControlOption
      Get
         Return m_ControlOption
      End Get
      Set(ByVal value As ControlOption)
         m_ControlOption = value
      End Set
   End Property
 
End Class
 
 
<TypeConverter(GetType(ExpandableObjectConverter))> _
Public Class ControlOption
   Private m_Height As Integer = 100
   Private m_Width As Integer = 100
   Private m_ControlColor As Color = Color.Black
 
   Public Property Height() As Integer
      Get
         Return m_Height
      End Get
      Set(ByVal value As Integer)
         m_Height = value
      End Set
   End Property
 
   Public Property Width() As Integer
      Get
         Return m_Width
      End Get
      Set(ByVal value As Integer)
         m_Width = value
      End Set
   End Property
 
   Public Property ControlColor() As Color
      Get
         Return m_ControlColor
      End Get
      Set(ByVal value As Color)
         m_ControlColor = value
      End Set
   End Property
End Class

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