AfterLoad事件,加入代码
Dim t As object = e.Form.Controls("TextBox1").BaseControlt.ContextMenuStrip = new System.Windows.Forms.ContextMenuStrip()