picture box cannot be made transparent

[Megatron]

Try:

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 Const GWL_EXSTYLE = (-20)
Private Const WS_EX_TRANSPARENT = &H20&

Private Sub Command1_Click()
    Dim lStyle As Long
    lStyle = GetWindowLong(Picture1.hwnd, GWL_EXSTYLE)
    lStyle = lStyle Or WS_EX_TRANSPARENT
    SetWindowLong Picture1.hwnd, GWL_EXSTYLE, lStyle
End Sub