Прозрачность формы и непрозрачность Label

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 Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
 
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Const LWA_ALPHAANDCOLORKEY = &H3
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
 
Private Sub Command1_Click() ' прозрачность формы
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, 0, 100, LWA_ALPHA
End Sub
 
Private Sub Command2_Click() ' непрозрачность чёрного цвета
Dim ret1 As Long
 
ret1 = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
ret1 = ret1 Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, ret1
SetLayeredWindowAttributes Me.hwnd, &H0&, 128, LWA_ALPHAANDCOLORKEY
End Sub

Option Explicit
 
'© 2005 Jenizix
 
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
 
Private Const RGN_OR = 2
 
Private Sub TranspForm(ByVal frm As Form)
    Dim WindowRgn As Long ' тут будет храниться регион, по которому в последствии будет вырезано окно
    Dim ctrlRgn As Long ' тут будет храниться регион текущео конрола
    Dim ctrl As Control ' текущий контрол
   
    WindowRgn = CreateRectRgn(0, 0, 0, 0) ' создаем пустой регион
   
    On Error Resume Next
    For Each ctrl In frm.Controls ' перебираем все контролы на форме
        ctrlRgn = CreateRectRgn(frm.ScaleX(ctrl.Left, frm.ScaleMode, vbPixels), frm.ScaleY(ctrl.Top, frm.ScaleMode, vbPixels), frm.ScaleX(ctrl.Left + ctrl.Width, frm.ScaleMode, vbPixels), frm.ScaleY(ctrl.Top + ctrl.Height, frm.ScaleMode, vbPixels))  ' создаем регион текущего контрола
        CombineRgn WindowRgn, WindowRgn, ctrlRgn, RGN_OR ' комбинируем его с регионом WindowRgn
    Next
   
    SetWindowRgn frm.hWnd, WindowRgn, True ' вырезаем окно по региону WindowRgn
   
    DeleteObject ctrlRgn
End Sub
 
Private Sub Form_Load()
    TranspForm Me ' вызываем ф-ию которая делает форму прозрачной
End Sub

Private Sub Form_Load()
Dim ret As Long
Form1.BackColor = &HFFFFFF
Form1.AutoRedraw = True
Print "AAAAAAAAAAAAAAAAA"
myback = Form1.BackColor
 
ret = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
ret = ret Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, ret
SetLayeredWindowAttributes Me.hwnd, myback, 0, LWA_COLORKEY
End Sub