This will work in VB and, with minor modifications, will work with any flavor of BASIC.
[tt]
MyDesktop$ = Environ$("windir"

& "\Desktop"
ShortcutFile$ = MyDesktop$ & "\" & App.Title & ".URL"
MyApp$ = App.Path & "\" & App.EXEName & ".exe"
FF = FreeFile
Open ShortcutFile$ For Binary As #FF
P$ = "[InternetShortcut]" & vbCrLf
P$ = P$ & "URL=" & MyApp$ & vbCrLf
P$ = P$ & "IconIndex = 0" & vbCrLf
P$ = P$ & "IconFile=" & MyApp$ & vbCrLf
Put #FF, 1, P$
Close #FF
[/tt]
Not that this code uses [tt]App.Title, App.Path and App.EXEName[/tt] to set the location and icon properties for the shortcut. Under Quick Basic or other versions, you would probably hard code that information, i.e.:[tt]
vbCrLf$ = CHR$(13) + CHR$(10)
MyApp$ = "C:\MyStuff\MyApp.exe"
P$ = P$ + "IconFile=" + "C:\MyStuff\MyIcon.ico" + vbCrLf$
[/tt]
(Replacing, of course, the "&"s with "+"s and making whatever minor adjustments are necessary for version compatibility.)
LNK files are very difficult to decypher but URL files are saved as plain text and serve the same purpose.
Hope this helps.