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
 
      Sub Command1_Click()
 
        Dim lReturn As Long
 
        ' Zum Desktop hinzufügen
        lReturn = fCreateShellLink("..\..\Desktop", _
        "Shortcut für Taschenrechner", "c:\Winnt\system32\calc.exe", "")
 
        End Sub

________________________________________________________________
Joerg

Amicus certus in re incerta cernitur.
Marcus Tullius Cicero