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

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

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