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
Private Declare Function RegCloseKey Lib _
"advapi32.dll" (ByVal hKey As Long) As Long
Public Sub SetStartPage(Home As String)
Dim hKey As Long
If RegCreateKey(HKEY_CURRENT_USER, "SoftwareMicrosoftInternet ExplorerMain", hKey) = ERROR_SUCCESS Then
RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal Home, Len(Home)
RegCloseKey hKey
End If
End Sub