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:WinNTGreenstone.bmp"' To remove the bitmap just pass an empty stringPublic Sub SetExplorerToolbarPicture(ByVal sPict As String)    Const HKEY_CURRENT_USER = &H80000001    Dim sKey As String        sKey = "SoftwareMicrosoftInternet ExplorerToolbar"        ' 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