[alshandodi]

نعم بالظبط هكذا اخي المقصد

---

كود :

If My.Settings.FRM2 = 1 Then
           Exit Sub
       Else
           Dim frm As New Form2
           frm.MdiParent = Me
           frm.Show()
           Me.LayoutMdi(MdiLayout.TileVertical)
           My.Settings.FRM2 = 1
           My.Settings.Save()
       End If

وجدت هذا الحل ولكن لا اريد زحمة في SETTINGS 

وعند اغلاق الفورم 

كود :

ME.CLOSE
 My.Settings.FRM2 = 0
       My.Settings.Save()