[الشاكي لله]

اعتقد لو نقلت الاكواد الي داخل function الى فنكشن منفصلة ممكن يضبط

يعني جدي : 

كود :

    Private Sub OpenForm2()
                     Application.Run(New Form() With {.MdiParent = Form1})
    End Sub

وعند تكوين الثريد يصبح هكذا:

كود :

   Dim _thread As Thread = New Thread(AddressOf OpenForm2)