ProfileString Property Example

This example returns the value of the subkey, 0 (zero), in the Recently Used URLs entry.

Note To run this example, you must have recently opened a page that exists in one of your webs.

Private Sub GetRegRecentlyUsedInfo()
Dim mySecKey As String
Dim myRegKey As String
Dim myProfile As String

mySecKey = "HKEY_CURRENT_USER\Software"
mySecKey = mySecKey & _
    "\Microsoft\FrontPage\Editor\Recently Used URLs"
myRegKey = "0"

myProfile = System.ProfileString(mySecKey, myRegKey)
End Sub