In A.vb
---------------
storageAdvice = New Quotation_Add
storageAdvice.MdiParent = Me
storageAdvice.Show()
In storageAdvice.vb
-------------
B.Show()
In B.vb
---------------
storageAdvice.TextBox1.Text = "aaa"
But after the result storageAdvice.TextBox1.Text is blank