Пользовательское выпадающее меню по кнопке

Dim dropdown = New ToolStripDropDown()
 
        'Define style
        dropdown.LayoutStyle = ToolStripLayoutStyle.Table
        Dim settings = (TryCast(dropdown.LayoutSettings, TableLayoutSettings))
        settings.ColumnCount = 3
 
        'First Item    
        Dim item1 = New ToolStripMenuItem("Some Sub Menu")
        dropdown.Items.Add(item1)
        settings.SetColumnSpan(item1, 3) 'Set column span to fill the row
 
        'First Combo
        Dim combo1 = New ToolStripComboBox("combo1")
        combo1.Items.AddRange(New String() {"Item1", "Item2", "Item3"})
        dropdown.Items.Add(combo1)
 
        'Separator
        dropdown.Items.Add("-")
 
        'Second Combo
        Dim combo2 = New ToolStripComboBox("combo2")
        combo2.Items.AddRange(New String() {"Item1", "Item2", "Item3"})
        dropdown.Items.Add(combo2)
 
        'Last item
        Dim item2 = New ToolStripMenuItem("Some Othe Sub Menu")
        dropdown.Items.Add(item2)
        settings.SetColumnSpan(item2, 3) 'Set column span to fill the row
 
        toolStripDropDownButton1.DropDown = dropdown

 Dim screenPoint As Point = Button2.PointToScreen(New Point(Button2.Left, Button2.Bottom))
        If screenPoint.Y + ContextMenuStrip1.Size.Height > Screen.PrimaryScreen.WorkingArea.Height Then
            ContextMenuStrip1.Show(Button2, New Point(0, -ContextMenuStrip1.Size.Height))
        Else
            ContextMenuStrip1.Show(Button2, New Point(0, Button2.Height))
        End If

Private Sub ToolStripMenuItem2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem2.CheckedChanged
    ToolStripMenuItem3.Checked = Not ToolStripMenuItem2.Checked
    'Action
End Sub
Private Sub ToolStripMenuItem3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem3.CheckedChanged
    ToolStripMenuItem2.Checked = Not ToolStripMenuItem3.Checked
    'Action
End Sub

Private Sub ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem1.Click
    MsgBox("menuButton Click")
End Sub