主题：动态新增的vs控件 如果获取其在屏幕中的绝对坐标

 参考

Dim dp As Point
dp = e.Form.controls("Button1").basecontrol.PointToClient(dp)
msgbox(-dp.x & " " & -dp.y)

toolStripMenuItem 不是一个控件，无法直接获取的，你只能获取菜单的位置。

或者你直接说你想做什么功能。