vb.net 关于一些窗体show时定位

 以下就是关于ContextMenuStrip（右击窗体）show出来的位置

 

           Dim control As New Control(Nothing, control.MousePosition.X, control.MousePosition.Y, 1, 1)

            control.Visible = True

            control.CreateControl()

            Dim pos As New Point(-8, -15) '这里的两个数字要根据你的上下文菜单大小适当地调整

            Me.ContextMenuStrip2.Show(control, pos)