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