#Region "Ausgeblendete Propertys"
    <Category("Appearance"), Description(""), Browsable(False), Bindable(False)> _
      Public Overloads Property BackgroundImage() As Image
        Get
        End Get
        Set(ByVal Value As Image)
        End Set
    End Property
 
    <Category("Appearance"), Description(""), Browsable(False), Bindable(False)> _
  Public Shadows Property Cursor() As System.Windows.Forms.Cursor
        Get
        End Get
        Set(ByVal Value As System.Windows.Forms.Cursor)
        End Set
    End Property
#End Region
 
    <Category("Appearance"), _
   Description("The ForeColor / Fontcolor of the ComboBox and its Selection.")> _
    Public Overrides Property ForeColor() As System.Drawing.Color
        Get
            Dim cColor As System.Drawing.Color
            cColor = MyBase.ForeColor
            Return cColor
        End Get
        Set(ByVal Value As System.Drawing.Color)
            Try
                MyBase.ForeColor = Value
                Me.txtAnzeige.ForeColor = Value
            Catch
            End Try
        End Set
    End Property
 
    <Category("Verhalten"), _
   Description("")_
    Public Property [ReadOnly]() As Boolean
        Get
            Return bol_Locked
        End Get
        Set(ByVal Value As Boolean)
            Try
                bol_Locked = Value
                If Value = True Then
                    Me.cmdAnzeige.Enabled = False
                    Me.txtAnzeige.ReadOnly = True
                Else
                    Me.cmdAnzeige.Enabled = True
                    Me.txtAnzeige.ReadOnly = False
                End If
            Catch
            End Try
        End Set
    End Property
 
    <Category("Data"), _
   Description("Tablestyles of DataGrid."), _
   Browsable(True), _
   EditorBrowsable(EditorBrowsableState.Always), _
   DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
   Public Property TableStyles() As _
   System.Windows.Forms.GridTableStylesCollection
        Get
            Return dgTableStyles.TableStyles
        End Get
        Set(ByVal Value As System.Windows.Forms.GridTableStylesCollection)
 
        End Set
    End Property
 
    <Category("Data"), Description(""), DefaultValue(-1), TypeConverter(GetType( _
      TypeConverter)), DesignerSerializationVisibility( _
      DesignerSerializationVisibility.Hidden)> _
    Public Property MainValue() As DataColumn
        Get
            Try
                dcMainValue = MainDataSet.Tables( _
                  MainDataTable.TableName).Columns(MainValueName)
                Return dcMainValue
            Catch
                Return Nothing
            End Try
        End Get
        Set(ByVal Value As DataColumn)
            Try
                If IsNothing(Value) Then
                    dcMainValue = Nothing
                    MainValueName = ""
                    MainDataTable = Nothing
                    MainDataSet = Nothing
                Else
                    dcMainValue = Value
                    'Initialisierung der Ausgeblendeten Propertys.
                    MainValueName = Value.Caption
                    MainDataTable = Value.Table
                    MainDataSet = Value.Table.DataSet
                End If
            Catch ex As Exception
                MsgBox(ex)
            End Try
        End Set
    End Property
 
    <Category("Data"), Description(""), Browsable(True), Bindable(False), _
      EditorBrowsable(EditorBrowsableState.Always), _
    DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    Public Property MainDataTable() As DataTable
        Get
            Return dtMainDataTable
        End Get
        Set(ByVal Value As DataTable)
            dtMainDataTable = Value
        End Set
    End Property

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)