[barakascap]

الحمد لله تم الحل

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim DesktopDirectory As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)

        Using ShortcutWriter As New StreamWriter(DesktopDirectory & "\" & TextBox1.Text & ".url")
            ShortcutWriter.WriteLine("[InternetShortcut]")
            ShortcutWriter.WriteLine("URL=" & TextBox2.Text)
            ShortcutWriter.Flush()
        End Using
    End Sub