鼠标位置

Public Declare Function WindowFromPoint Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
    X As Long
    Y As Long
End Type

Public Type DGfor3
    ponX As Long
    ponY As Long
    MDC As Long
End Type

Public Function MouseDC() As DGfor3
    On Error Resume Next
    Dim Cur As POINTAPI
    GetCursorPos Cur
    MouseDC.MDC = WindowFromPoint(Cur.X, Cur.Y)
    MouseDC.ponX = Cur.X
    MouseDC.ponY = Cur.Y
End Function