Nastavenφ viditelnosti Oblφben²ch polo₧ek

Procedura:
Public Sub SetIEFavoritesEnabled(ByVal bEnabled As Boolean) 

   Const HKEY_CURRENT_USER = &H80000001 
   Dim sKey As String 

   sKey = "Software\Policies\Microsoft\_
      Internet Explorer\Restrictions" 

   'Pokud klφΦ neexistuje 
   If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then 
      ' tak ho vytvo°φme 
      CreateRegistryKey HKEY_CURRENT_USER, sKey 
   End If 

   ' Nastavenφ hodnoty
   SetRegistryValue HKEY_CURRENT_USER, sKey, _
      "NoFavorites", Abs(Not bEnabled) 

End Sub

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

Zp∞t