[الوليد ☺]

السلام عليكم ورحمة الله

أبسط طريقة هو وضع متغير يدل أنه حدث تغيير وتقرأ قيمته عند فتح ملف أو الخروج.
مثل

PHP كود :

Dim modify As Boolean

' حدث التغيير في محتوي مربع النص '
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    modify = True
End Sub


' فتح ملف '
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    If modify Then

        Dim result As MsgBoxResult = MsgBox("هل تريد حفظ التعديلات؟", MsgBoxStyle.YesNoCancel)

        Select Case result

            Case MsgBoxResult.Yes
                SaveFileDialog() ' حفظ الملف '

            Case MsgBoxResult.Cancel
                Exit Sub ' التراجع عند فتح ملف وترك الوضع كما كان '

        End Select

        OpenFileDialog() ' فتح ملف '

    Else
        OpenFileDialog() ' فتح ملف '

    End If

End Sub