以下的代碼可以在桌面上建立一個Internet快捷鍵。
DimStrURLFileAsString
DimStrURLTargetAsString
DimFileNumAsInteger
StrURLFile="C:WindowsDesktopVB編程樂園.url"'桌面目錄和標題
StrURLTarget="http://www.vbeden.com"'地址
FileNum=FreeFile
'WritetheInternetShortcutfile
OpenStrURLFileForOutputAsFileNum
Print#FileNum,"[InternetShortcut]"
Print#FileNum,"URL="&StrURLTarget
CloseFileNum->
