在桌面上建立一个Internet快捷键

以下的代码可以在桌面上建立一个Internet快捷键。
DimStrURLFileAsString
DimStrURLTargetAsString
DimFileNumAsInteger

StrURLFile="C:\Windows\Desktop\VB编程乐园.url"'桌面目录和标题
StrURLTarget="http://www.vbeden.com"'地址
FileNum=FreeFile

'WritetheInternetShortcutfile
OpenStrURLFileForOutputAsFileNum
Print#FileNum,"[InternetShortcut]"
Print#FileNum,"URL="&StrURLTarget
CloseFileNum->