Debemos usar unas funciones que se encuentran en la librería vb5stkit.dll del Asistente para Instalación de aplicaciones (stkit432.dll para Vb 4 32 bits) y que se encuentra en el directorio ..VB\setupkit\kitfil32 (en Vb 5).

Declare Function OSfCreateShellGroup Lib "VB5STKIT.DLL" Alias "fCreateShellFolder" (ByVal lpstrDirName As String) As Long

Declare Function OSfCreateShellLink Lib "VB5STKIT.DLL" Alias "fCreateShellLink"
                 (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long

Declare Function OSfRemoveShellLink Lib "VB5STKIT.DLL" Alias "fRemoveShellLink"
                 (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String) As Long


OSfCreateShellGroup crea un nuevo grupo fuera de Inicio>Programas si la carpeta especificada no existe ya.

OSfCreateShellLink crea (o reemplaza) un vínculo en Inicio>Programas o en cualquiera de sus subcarpetas inmediatas.

OSfRemoveShellLink quita un vínculo de Inicio>Programas o cualquiera de sus subcarpetas inmediatas.

Ejemplos :

Crearemos un nuevo grupo llamado "Grupo de prueba" en Incio>Programas :

   l = OSfCreateShellGroup("Grupo de prueba")

Añadiremos vínculos a ese grupo :

l = OSfCreateShellLink("Grupo de prueba", "Mi programa 1", "C:\WIN95\prueba de PP.EXE", "parametros")
l = OSfCreateShellLink("Grupo de prueba", "Mi programa 2", "C:\WIN95\prueba de PP.EXE", "parametros")

Eliminaremos el segundo vínculo :

l = OSfRemoveShellLink("Grupo de prueba", "Mi programa 1")