SetExplorerToolbarPicture - Change Explorer toolbar image

' Set the path of the picture used as background of the Windows Explorer toolbar
' Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey 
' routines, you can find them in the CodeBank
' Example:
'   SetExplorerToolbarPicture "E:\WinNT\Greenstone.bmp"
' To remove the bitmap just pass an empty string

Public Sub SetExplorerToolbarPicture(ByVal sPict As String)
    Const HKEY_CURRENT_USER = &H80000001
    Dim sKey As String
    
    sKey = "Software\Microsoft\Internet Explorer\Toolbar"
    
    ' if the Key does not exist
    If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
        ' create the key
        CreateRegistryKey HKEY_CURRENT_USER, sKey
    End If
    
    ' set the value
    SetRegistryValue HKEY_CURRENT_USER, sKey, "BackBitmapShell", sPict
    
End Sub