Цвета Picture Box

Option Explicit
 
Const LWA_COLORKEY = 1
Const LWA_ALPHA = 2
Const LWA_BOTH = 3
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = -20
 
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean
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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
 
Private pPoint As POINTAPI
Private hMouseOverWnd As Long
Public Trans As Integer
 
Public Function SetTrans(hWnd As Long, Trans As Integer)
 
    Dim Tcall As Long
 
    If Trans <= 0 Then
        Exit Function
    Else
        Tcall = GetWindowLong(hWnd, GWL_EXSTYLE)
        SetWindowLong hWnd, GWL_EXSTYLE, Tcall Or WS_EX_LAYERED
        SetLayeredWindowAttributes hWnd, RGB(255, 255, 0), Trans, LWA_ALPHA
    End If
 
End Function
 
Private Sub Form_Load()
SetTrans Form1.hWnd, 120
End Sub

SetTrans Picture1.hWnd, 120

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
 Const LWA_COLORKEY = &H1
 Const LWA_ALPHA = &H2
 Const GWL_EXSTYLE = (-20)
 Const WS_EX_LAYERED = &H80000
 Private Sub Form_Load()
 Picture1.BackColor = &HFFFFF1
 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, &HFFFFF1, 0, LWA_COLORKEY
 End Sub

Const LWA_COLORKEY = 1

    SetLayeredWindowAttributes hWnd, RGB(255, 255, 0), Trans, LWA_ALPHA