AddHandler ToolStripDropDownButton1.Click, AddressOf toolbox
 
Private Sub toolbox(ByVal sender As Object, ByVal e As EventArgs)
        Dim s As String
 
        s =Convert.ToString(DirectCast(sender, ToolStripDropDownButton))
 ToolStripTextBox1.Text = (s)