Nastavení pozadí toolbaru IE

Procedura:
Public Sub SetExplorerToolbarPicture(ByVal sPict As String) 

   ' Přiklad použití: 
   ' SetExplorerToolbarPicture "E:\WinNT\Greenstone.bmp" 
   ' Pro odstranění bitmapy zašlete jako parametr prázdný řetězec

   Const HKEY_CURRENT_USER = &H80000001 

   Dim sKey As String 

   sKey = "Software\Microsoft\Internet Explorer\Toolbar" 

   If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then 
      CreateRegistryKey HKEY_CURRENT_USER, sKey 
   End If 

   SetRegistryValue HKEY_CURRENT_USER, sKey, "BackBitmapShell", sPict 

End Sub

Pro více informací: CheckRegistryKey, SetRegistryValue, CreateRegistryKey.

Zpět