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

以下的代码可以在桌面上建立一个 Internet 快捷键。
Dim StrURLFile As String
Dim StrURLTarget As String
Dim FileNum As Integer

StrURLFile = "C:WindowsDesktop小亮VB天地.url" '桌面目录和标题
StrURLTarget = "http://xlvb.yeah.net" '地址
FileNum = FreeFile

'Write the Internet Shortcut file
Open StrURLFile For Output As FileNum
Print #FileNum, "[InternetShortcut]"
Print #FileNum, "URL=" & StrURLTarget
Close FileNum