Imports System.ComponentModel
 
<LookupBindingProperties( _
"DataSource", _
"DisplayMember", _
"ValueMember", _
"SelectedValue")> _
Public Class ComboBoxEingabe
 
    Public Property DataSource() As Object
        Get
            Return cbo.DataSource
        End Get
        Set(ByVal value As Object)
            cbo.DataSource = value
        End Set
    End Property
 
    Public Property ValueMember() As String
        Get
            Return cbo.ValueMember
        End Get
        Set(ByVal value As String)
            cbo.ValueMember = value
        End Set
    End Property
 
    Public Property SelectedValue() As Object
        Get
            Return cbo.SelectedValue
        End Get
        Set(ByVal value As Object)
            cbo.SelectedValue = value
        End Set
    End Property
 
    Public Property DisplayMember() As String
        Get
            Return cbo.DisplayMember
        End Get
        Set(ByVal value As String)
            cbo.DisplayMember = value
        End Set
    End Property
 
End Class