做一个隐藏的button,放在工具栏下面,适当调整坐标即可
Dim btn As WinForm.Button = e.form.controls("Button1")btn.ShowContextStrip(0, 0, e.Form.Strips("快捷菜单1"))