Ce code permet de créer un raccourci vers la bureau. Mais comment utiliser la vb6 au lieu de la VB5 ?
'==================
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
Dim wReturn as Long
wReturn = fCreateShellLink("....Bureau", "Calc", "c:windowscalc.exe", "")