2020-05-16

Option Explicit
'声明这两个636f7079e799bee5baa6e997aee7ad9431333335303531 API ：
Private Declare Function GetWindowLong Lib "user32" _
            Alias "GetWindowLongW" (ByVal hWnd As Long, _
                     ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
            Alias "SetWindowLongW" (ByVal hWnd As Long, _
                     ByVal nIndex As Long, _
                    ByVal dwNewLong As Long) As Long
 
Private Sub Command1_Click()
   '这个是把“自己”设置鼠标穿透
   '如果是设置别的窗口，下面的 hWnd就换成对应窗口的句柄
    Call SetWindowLong(hWnd, -20, _
                     GetWindowLong(hWnd, -20) Or &H80020)
End Sub