طريقة جربتها لفتح الفورم مرة واحدة

عند وضع هذا الكود وتنفيذه

Dim OffData As New OfficeData
        With OffData
            .MdiParent = mForm
            .Show()
       End With

فإنه يقوم بفتح نافذة جديد كل مرة يتم تنفيذ هذا الإجراء

وما فعلته أنا هو وضع التعريف ( السطر الأول ) في قسم التعريفات الرئيسي في الموديول كالتالي

Public OffData As New OfficeData

ولتشغيل الكود

With OffData
            .MdiParent = mForm
            .Show()
        End With

وعند تنفيذه لا يظهر نافذة جديدة

ولكن المشكلة أنه عند إغلاق الفورم وتنفيذه مرة أخري يتم الخروج من البرنامج بدون أية رسالة خطأ

هل لدى أحد حل أو اقتراح

هذا والله أعلم وأجل