Option
Explicit
' ''窗口半透明声明开始
Private Declare Function GetWindowLong Lib " user32 " Alias " GetWindowLongA " (ByVal hwnd As Long , ByVal nIndex As Long ) As Long
Private Declare Function SetWindowLong Lib " user32 " Alias " SetWindowLongA " (ByVal hwnd As Long , ByVal nIndex As Long , ByVal dwNewLong As Long ) As Long
Private Declare Function SetLayeredWindowAttributes
' ''窗口半透明声明开始
Private Declare Function GetWindowLong Lib " user32 " Alias " GetWindowLongA " (ByVal hwnd As Long , ByVal nIndex As Long ) As Long
Private Declare Function SetWindowLong Lib " user32 " Alias " SetWindowLongA " (ByVal hwnd As Long , ByVal nIndex As Long , ByVal dwNewLong As Long ) As Long
Private Declare Function SetLayeredWindowAttributes