[AHMED HUSSIEN]

تم حل المشكلة وتم تجربة الكود

PHP كود :

Imports Microsoft.Win32

Public Class Form1
    Dim p As String = ""

    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        If p <> "" Then
            RichTextBox1.SaveFile(p)
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim r As RegistryKey = Registry.ClassesRoot.OpenSubKey("\txtFile\Shell\Open\Command", True)
        r.SetValue(Nothing, Application.ExecutablePath & " %1")
        If Trim(Microsoft.VisualBasic.Command()) <> "" Then
            If Dir(Trim(Microsoft.VisualBasic.Command())) <> "" Then
                Try
                    RichTextBox1.LoadFile(Trim(Microsoft.VisualBasic.Command()))
                Catch ex As Exception
                    Try
                        RichTextBox1.LoadFile(Trim(Microsoft.VisualBasic.Command()))
                    Catch eh As Exception
                        Me.RichTextBox1.Text = My.Computer.FileSystem.ReadAllText(Trim(Microsoft.VisualBasic.Command()))
                    End Try
                End Try
                p = Microsoft.VisualBasic.Command()
            End If
        End If
    End Sub

End Class 


ليس من الضروى تشغيل البرنامج كمسؤول يعنى يمكنك اعادة السطر الذى فى الصورة التى فى الأعلى الى ما كان عليه