Visual Basic 2008 help

[DSapseid]

Hi I have the following code that i have found but when i try and use it in Visual Basic 2008 Express it doesnt like it because the code is obviously from an older version of VB.

Is there a really really nice person out there that would like to convert it for use in 2008

Thanks Dan

 Private Sub Command1_Click()
Set Sh &H3D CreateObject("WScript.Shell")

' Use a proxy server for your LAN

Sh.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet
Settings\ProxyEnable", "1"

' Do not use proxy server for addresses beginning with( <local> is the
"Bypass proxy server for local addresses" option.
Sh.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet
Settings\ProxyOverride", "1.1.1.1;<local>"

' Address and port of proxy server
Sh.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet
Settings\ProxyServer", "1.1.1.1:80"

End Sub

[DSapseid]

Done it just guessed them