Форма становится прозрачной, а кнопка - нет

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 Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long 
 
Private Sub Form_Load() 
    Dim Ret As Long 
    Ret = GetWindowLong(hwnd, GWL_EXSTYLE) 
    Ret = Ret Or &H80000 
    SetWindowLong hwnd, (-20), Ret 
     
    SetLayeredWindowAttributes hwnd, 0, 128, 2 
End Sub

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 Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long 
 
Private Sub Form_Load() 
    Dim Ret As Long 
    Ret = GetWindowLong(Command1.hwnd, GWL_EXSTYLE) 
    Ret = Ret Or &H80000 
    SetWindowLong Command1.hwnd, (-20), Ret 
   
    SetLayeredWindowAttributes Command1.hwnd, 0, 128, 2 Or 1 
     
End Sub

' !!!! В свойствах Кнопки выставить  Command1.Style = 1   !!!
Const LWA_COLORKEY = &H1
 Const LWA_ALPHA = &H2
 Const GWL_EXSTYLE = (-20)
 Const WS_EX_LAYERED = &H80000
 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 Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
 
 Private Sub Form_Load()
 'Me.BackColor = &HFFFFFF  ' Форма будет прозрачной!
 Command1.BackColor = &HFFFFFF
 Dim Ret As Long
 Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
 Ret = Ret Or WS_EX_LAYERED
 SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
 SetLayeredWindowAttributes Me.hWnd, &HFFFFFF, 0, LWA_COLORKEY
 End Sub

Option Explicit
'
Public Const GWL_WNDPROC = -4
' Сообщения windows
'
Public Const HWND_TOP = 0
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
'
Public Const WM_ACTIVATE = &H6
Public Const WM_CLOSE = &H10
Public Const WM_MOVE = &H3
Public Const WM_SIZE = &H5
 
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
'
Dim SWL As Long
Dim mhWnd As Long
Dim mParent As Object
 
 
Function Hook(Parent As Object) As Long
    On Error GoTo errr
    Set mParent = Parent
    mhWnd = mParent.hwnd
    SWL = SetWindowLong(mhWnd, GWL_WNDPROC, AddressOf WindowProc)
errr:
End Function
 
Sub UnHook()
    Call CallWindowProc(SWL, mhWnd, WM_CLOSE, 0, 0)
End Sub
 
Public Function WindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Dim o As Object
   On Error GoTo errr
   Select Case Msg
   Case WM_SIZE
        Call mParent.WSize
        Exit Function
   Case WM_ACTIVATE
        Call mParent.WActivate
        Exit Function
    Case WM_MOVE
        Call mParent.WMove
        Exit Function
   End Select
   WindowProc = CallWindowProc(SWL, hwnd, Msg, wParam, lParam)
errr:
End Function

Option Explicit
'
'   Динамически созданная полупрозрачная кнопка
'   © Антихакер32™
'
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags 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
 
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED As Long = &H80000
Dim mLeft&, mTop&
Dim WithEvents cmm As CommandButton
 
 
Private Sub Form_Load()
    Const Alpha = 50 'Прозрачность от 0 до 255
    
    Set cmm = Controls.Add("vb.CommandButton", "cmm")
    With cmm
        cmm.Caption = "Динамическая, прозрачная кнопка"
        .Width = 5000
        .Visible = 1
        SetParent .hwnd, 0 'GetDesktopWindow
        SetWindowPos .hwnd, -1, 100, 100, 0, 0, SWP_NOSIZE 'Or SWP_NOMOVE
        SetWindowLong .hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
        SetLayeredWindowAttributes .hwnd, 0, Alpha, 2
        .left = .left + mLeft
        .top = .top + mTop
    End With
    Hook Me
End Sub
 
Private Sub Form_Terminate()
    UnHook
End Sub
 
Public Sub WMove()
    With cmm
        .left = .left + (Me.left - mLeft)
        .top = .top + (Me.top - mTop)
    End With
    mLeft = Me.left: mTop = Me.top
End Sub

Public Sub WActivate()
    On Error Resume Next
    If GetForegroundWindow = Me.hWnd Then
        SetParent cmm.hWnd, 0
    Else
        SetParent cmm.hWnd, hWnd
    End If
End Sub

Option Explicit
'
'   Динамически созданная полупрозрачная кнопка
'   © Антихакер32™
'
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Const HWND_TOP = 0
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const LWA_COLORKEY = &H1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED As Long = &H80000
Dim mLeft&, mTop&, mRECT As RECT
Dim WithEvents cmm As CommandButton
Dim WithEvents pic As PictureBox
 
Private Sub Form_Load()
    Const Alpha = 200 'Прозрачность от 0 до 255
    
    Set pic = Controls.Add("vb.PictureBox", "pic")
    With pic
        .BorderStyle = 0: .BackColor = &HFFFF5: .Visible = 1
        SetWindowLong Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
        SetLayeredWindowAttributes Me.hWnd, .BackColor, 0, LWA_COLORKEY
    End With
    
    Set cmm = Controls.Add("vb.CommandButton", "cmm")
    With cmm
        cmm.Caption = "Динамическая, прозрачная кнопка"
        SetParent .hWnd, 0: .Visible = 1
        SetWindowLong .hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
        SetLayeredWindowAttributes .hWnd, 0, Alpha, 2
    End With
    Hook Me
End Sub
 
Public Sub WSize()
    Const L = 100, T = 100
    On Error Resume Next
     With pic
        .Move L, T, Me.ScaleWidth - L * 2, 500
        WMove
    End With
End Sub
 
Private Sub Form_Terminate()
    UnHook
End Sub
 
Public Sub WMove()
    GetWindowRect pic.hWnd, mRECT
    With mRECT
        SetWindowPos cmm.hWnd, 0, .Left, .Top, .Right - .Left, .Bottom - .Top, 0
    End With
End Sub
 
Public Sub WActivate()
    On Error Resume Next
    If GetForegroundWindow = Me.hWnd Then
        SetParent cmm.hWnd, 0
    Else
        SetParent cmm.hWnd, hWnd
    End If
    WMove
End Sub