If you would like to invoke the Windows 95 shortcut wizard from Visual Basic, you can use the code below. Dim X As Long X = Shell("rundll32.exe AppWiz.Cpl, _ NewLinkHere " & App.Path & "\", 1)