Public Class frmBindingDemo
 
    Dim dt As New DataTable
 
    Dim ts1 As New ToolStrip With {.Parent = Me}
    Dim cb1 As New ToolStripComboBox With {.Owner = ts1}
    Dim bs1 As New BindingSource
 
    Dim ts2 As New ToolStrip With {.Parent = Me}
    Dim cb2 As New ToolStripComboBox With {.Owner = ts2}
    Dim bs2 As New BindingSource
 
    Private Sub frmBindingDemo_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        'Testdaten erstellen (statt Fill) 
        dt.Columns.Add("Text")
        For i As Integer = 0 To 9
            dt.Rows.Add("T" + CStr(i))
        Next i
 
        'Table an die Bindingsourcen hängen
        bs1.DataSource = dt
        bs2.DataSource = dt
 
        'Datenbindungen für die Combos erstellen
 
        cb1.ComboBox.DisplayMember = "Text"
        cb1.ComboBox.DataSource = bs1
 
        cb2.ComboBox.DisplayMember = "Text"
        cb2.ComboBox.DataSource = bs2
 
    End Sub
End Class