BeforeShowContextMenu事件
e.cancel = TrueDim dp As new Point()dp.X = Windows.Forms.Cursor.Position.Xdp.Y = Windows.Forms.Cursor.Position.Y
dp = e.Form.panel.PointToClient(dp)
e.Form.Controls("Panel1").basecontrol.left = dp.xe.Form.Controls("Panel1").basecontrol.Top = dp.y