Have you ever installed a application that put a shortcut on your desktop? This code will do just that.
This is for VB5 but you can substitute the DLL to VB4 or VB6... (STKIT432.DLL, would be VB4)


=====================================================================

Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Sub Shortcut()

Dim sCut As Long

sCut = fCreateShellLink("..\..\Desktop", "ProgramName", "C:\Program Files\ProgramName.Exe", "")

End Sub

The "ProgramName" will be the caption of the shortcut. The
"C:\Program Files\ProgramName.Exe" is the path of your program.