Создание ярлыков

Создание ярлыков в Windows посредством API функции.
Делается это просто, если учесть, что такая функция есть в библиотеке VB, которая есть и в 5 и в 6 версии.

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
Private Sub Form_Load()
RetVal = fCreateShellLink("..\..\Desktop", "Проводник", "explorer.exe", "")
End Sub

Если надо создать ярлык в папке Start Menu (в русских форточках Главное меню), то:

RetVal = fCreateShellLink("..\..\Start Menu", "Проводник", "explorer.exe", "")

Соответственно в папке Programs (Программы) и в папке Startup (Автозагрузка):

RetVal = fCreateShellLink("..\..\Start Menu\Programs", "Проводник", "explorer.exe", "")
RetVal = fCreateShellLink("..\..\Start Menu\Programs\Startup", "Проводник", "explorer.exe", "")