没有控件阻挡……可以:Option Explicit
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Cls Print X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelYEnd Sub要是有控件……没有内置……必须API
嗯 嗯 .