Сделать часть PictureBox прозрачным

VERSION 5.00 
 Begin VB.Form Form1 
    BackColor       =   &H00FF0000& 
    Caption         =   "Form1" 
    ClientHeight    =   5700 
    ClientLeft      =   60 
    ClientTop       =   450 
    ClientWidth     =   7980 
    LinkTopic       =   "Form1" 
    ScaleHeight     =   5700 
    ScaleWidth      =   7980 
    StartUpPosition =   3  'Windows Default 
    Begin VB.HScrollBar HScroll1 
       Height          =   375 
       LargeChange     =   8 
       Left            =   120 
       Max             =   255 
       TabIndex        =   5 
       Top             =   5160 
       Value           =   255 
       Width           =   7575 
    End 
    Begin VB.OptionButton Option1 
       Caption         =   "То же самое, что и в предыдущем примере, но всё наоборот." 
       Height          =   600 
       Index           =   4 
       Left            =   120 
       TabIndex        =   4 
       Top             =   2160 
       Width           =   7500 
    End 
    Begin VB.OptionButton Option1 
       Caption         =   "Черный цвет стал прозрачным полностью, и его прозрачность нельзя регулировать. А прозрачность фона изменяется в зависимости от положения ползунка." 
       Height          =   600 
       Index           =   3 
       Left            =   120 
       TabIndex        =   3 
       Top             =   1680 
       Width           =   7500 
    End 
    Begin VB.OptionButton Option1 
       Caption         =   "Прозрачным стал фон, т.е. просто весь такой цвет стал невидимым. Прозрачность регулировать нельзя!" 
       Height          =   600 
       Index           =   2 
       Left            =   120 
       TabIndex        =   2 
       Top             =   1200 
       Width           =   7500 
    End 
    Begin VB.OptionButton Option1 
       Caption         =   "Прозрачным стал весь черный цвет на форме, причем его прозрачность нельзя регулировать, а может и можно (я просто не знаю точно), но в моем примере нельзя :)" 
       Height          =   600 
       Index           =   1 
       Left            =   120 
       TabIndex        =   1 
       Top             =   720 
       Width           =   7500 
    End 
    Begin VB.OptionButton Option1 
       Caption         =   "Прозрачной стала вся форма со всеми контралами на ней, и в не зависимости от цветов формы и контролов. Что бы изменить прозрачность, измените положение ползунка." 
       Height          =   600 
       Index           =   0 
       Left            =   120 
       TabIndex        =   0 
       Top             =   240 
       Width           =   7500 
    End 
    Begin VB.Label Label1 
       Caption         =   "Регулируй ползунком прозрачность!" 
       Height          =   375 
       Left            =   1920 
       TabIndex        =   6 
       Top             =   4560 
       Width           =   3255 
    End 
 End 
 Attribute VB_Name = "Form1" 
 Attribute VB_GlobalNameSpace = False 
 Attribute VB_Creatable = False 
 Attribute VB_PredeclaredId = True 
 Attribute VB_Exposed = False 
 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 dwFlags, CLR 
 Private x As Byte, TP As Integer, Ret As Long 
 
 Public Sub SetTransparent(ID_Color As Long, LWA As Long) 
   SetWindowLong Me.hWnd, -20, Ret 
   SetLayeredWindowAttributes Me.hWnd, ID_Color, x, LWA 
 End Sub 
 
 Private Sub Form_Load() 
   dwFlags = Array(2&, 1&, 1&, 3&, 3&) 
   CLR = Array(0&, 0&, Me.BackColor, 0&, Me.BackColor) 
   x = HScroll1.Value 
   Ret = GetWindowLong(Me.hWnd, -20) Or &H80000 
 End Sub 
 
 Private Sub HScroll1_Change() 
   x = HScroll1.Value 
   Option1_Click TP 
 End Sub 
 
 Private Sub Option1_Click(Index As Integer) 
   TP = Index 
   SetTransparent CLng(CLR(TP)), CLng(dwFlags(TP)) 
 End Sub