ابحث عن كود لإرتباط محلي ..

		Me.Show() ' لتعجيل ظهور الفورم
		If IO.File.Exists(My.Application.Info.DirectoryPath & "\m.txt") Then ' للتأكد من وجود الملف
			Dim FreeNum As Byte = FreeFile()
			FileOpen(FreeNum, My.Application.Info.DirectoryPath & "\m.txt", OpenMode.Input) ' فتح الملف
			Do Until EOF(FreeNum)
				TextBox1.Text &= LineInput(FreeNum) & vbCrLf ' قراءة الملف سطرا سطرا
			Loop
			TextBox1.SelectionStart = TextBox1.TextLength
		Else
			MsgBox("لم يتم العثور على الملف") ' اذا لم يوجد الملف
		End If