Private Sub Form_Load()
' Setzt die Checkbox-Eigenschaft
' Wenn eine Verknüpfung am Desktop noch nicht besteht, dann wird Checkbox nicht 
' markiert und umgekehrt
If GetSpecialFolder(sfidDESKTOP) & "\" & App.Title & ".lnk" = "" _
Then Check2.Value = 0 _
Else Check2.Value = 1
End Sub
 
Private Sub Check2_Click()
' Verknüpfung am Desktop erstellen
If Check2.Value = 1 Then
' CreateShortcut "d:\test.lnk", "c:\Test.exe"
CreateShortcut GetSpecialFolder(sfidDESKTOP) & "\" & App.Title & ".lnk", _
  App.Path & "\" & App.EXEName & ".exe"
Else
Kill GetSpecialFolder(sfidDESKTOP) & "\" & App.Title & ".lnk"
End If
End Sub