[a.ahmed]

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    DeleteShortcut("software name.lnk")
End Sub 


PHP كود :

Sub DeleteShortcut(ByVal shortcut As String)
    Dim ext As String = IO.Path.GetExtension(shortcut).ToLower
    If ext <> ".lnk" Then
        MsgBox("Not shortcut.", MsgBoxStyle.Exclamation)
        Return
    End If
    Dim userShortuct As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\\" & shortcut
    If IO.File.Exists(userShortuct) Then IO.File.Delete(userShortuct)
    Dim publicShortuct As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirectory) & "\\" & shortcut
    If IO.File.Exists(publicShortuct) Then IO.File.Delete(publicShortuct)
End Sub