[محمود اكرم]

السلام عليكم
اخ عزام اذا كان هذا طلبك فانصح بدل ان تستخدم عملية التايمر استخدم حدث تحميل البرنامج وعملية اغلاق البرنامج

إقتباس :dim Userfile as String
Private Sub Form_Load()
Userfile = "اسم الملف بالامتداد كامل"
Open Userfile For Input As #1
TextBox.Text = Input(LOF(1), 1)
TextBox1.Refresh
Close #1
End Sub


Private Sub Form_Unload(Cancel As Integer)
Cancel = true


Dim a = MsgBox("هل تريد حفظ التغييرات على الملف", vbYesNoCancel)
If a = vbYes Then
Open Userfile For Output As #2
Print #2, TextBox1.Text
Close #2


ElseIf a = vbNo Then
End
ElseIf a = vbCancel Then
Cancel =false
End If
End Sub

عند تحميل البرنامج يتم عملية تحميل النص من الملف النصي
وعند الاغلاق تتم عملية الاغلاق بعد التأكد ان اردت الحفظ ام لا
_______________________
ارجو ان يكون هذا طلبك
^_*