سؤال عن التكست بوكس - نسخة قابلة للطباعة

كود :
       'ضع هذا في مديول

    Public Word As String = String.Empty

    '--------------------------------------------------------------------------------------------

    Private Sub ShowForm_Click(sender As Object, e As EventArgs) Handles ShowForm.Click

        'ضع هذا في حدث عرض النافذة الجديدة

        Word = Txt_Path.Text

        Dim Frm As New Form

        Frm.ShowDialog()

    End Sub

    '------------------------------------------------------------------------------------

    Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'ضع هذا في حدث تحميل الفورم الجديد

        Txt_Path.Text = Word

    End Sub