【实例说明】
    可以将IE浏览器中默认的主页修改为自己喜欢的主页地址。运行程序，输入新的主页地址，单击“设置主页”按钮，即可修改IE的主页；单击“退出”退出。

【编程思路】
    注册表的“HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main”子项中有一个“Start Page”的值项，该项的数值数据就是IE浏览器默认主页的URL，可以用RegSetValueEx函数将其设置为自己喜欢的网址。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在窗体上放置一个TextBox控件（用来输入设置为主页的网站的URL）、两个CommandButton控件。

    3.源程序  [素材源程序下载]


'定义常量
Const REG_SZ As Long = 1
Const HKEY_CURRENT_USER = &H80000001

'API函数
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
        (ByVal hKey As Long, _
        ByVal lpSubKey As String, _
        phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
        (ByVal hKey As Long, _
        ByVal lpValueName As String, _
        ByVal Reserved As Long, _
        ByVal dwType As Long, _
        lpData As Any, _
        ByVal cbData As Long) As Long

'设置主页（如果TextBox为空，则主页为“about:blank”）
Private Sub Command1_Click()
        Dim hKey As Long
        RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", hKey
        RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal Me.Text1.Text, 13
        RegCloseKey hKey
End Sub

'退出
Private Sub Command2_Click()
        End
End Sub