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 FileExists(GetSpecialFolder(sfidDESKTOP) & "\" & App.Title & ".lnk") = _
      False Then
        Check2.Value = 0
    Else
        Check2.Value = 1
    End If
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...