Checkbox в toolstrip

 Dim c1 As System.Windows.Forms.CheckBox = New System.Windows.Forms.CheckBox With {
            .CheckState = System.Windows.Forms.CheckState.Unchecked,
            .Text = "Клик"
        }
        Dim host As System.Windows.Forms.ToolStripControlHost = New System.Windows.Forms.ToolStripControlHost(c1)
        ToolStrip1.Items.Add(host)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim c1 As System.Windows.Forms.CheckBox = New System.Windows.Forms.CheckBox With {
            .CheckState = System.Windows.Forms.CheckState.Unchecked,
            .Text = "Клик"
        }
        Dim host As System.Windows.Forms.ToolStripControlHost = New System.Windows.Forms.ToolStripControlHost(c1)
        ToolStrip1.Items.Add(host)
        AddHandler c1.CheckedChanged, AddressOf MyMenu_CheckedChanged
    End Sub
    Private Sub MyMenu_CheckedChanged(ByVal sender As CheckBox, ByVal e As EventArgs)
        If sender.Checked = True Then
            Me.Text = "Выбрано"
        Else
            Me.Text = "Не выбрано"
        End If
    End Sub

Dim WithEvents c1 As CheckBox = .....