To create a shortcut:

Code:
'In Visual Basic 5.0, change Stkit432.dll in the following
'statement to Vb5stkit.dll.  Stkit432.dll is for Visual Basic 4.0

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

Dim Short As Long
Short = fCreateShellLink("\Startup", _
"Myprog", "c:\myprog\myprog.exe", "")