Imports System.ComponentModel
 
<TypeConverter(GetType(ExpandableObjectConverter))> _
Public Class dsclass
 
    Private _DataSource As Object
 
    <Category("Data"), AttributeProvider("System.ComponentModel.IListSource")> _
     Public Property DataSource() As Object
        Get
            Return _DataSource
        End Get
 
        Set(ByVal value As Object)
            _DataSource = value
        End Set
    End Property
 
    Private _DataMember As String
 
    <Category("Data"), Editor( _
      "System.Windows.Forms.Design.DataMemberListEditor, System.Design," & _
      "Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a", _
      "System.Drawing.Design.UITypeEditor")> _
    Public Property DataMember() As String
        Get
            Return _DataMember
        End Get
 
        Set(ByVal value As String)
            _DataMember = value
        End Set
    End Property
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist