[glal]

استعملت الكود التالي لفتح شاشة فورم جديد  

كود :

Dim frm=mdichildren.oftype(of form3).singleordefault
if frm is nothing then
  frm= New Form3
       frm.MdiParent = Me
       frm.Show()
else
       If frm.WindowState = FormWindowState.Minimized Then frm.WindowState = FormWindowState.Normal
end if
frm.activate

الامر activate يقوم باستدعاء الشاشة الى الواجهه