[asemshahen5]

كود :

       'ضع هذا في مديول
   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