تجميد او الغاء زر الاغلاق X

السلام عليكم ورحمة الله

ضيف هذه الدالة  في النموذج الذي تريده وستفي بالغرض وستلغي وظيفة زر اغلاق الفورم بالتوفيق

 Private Const CP_NOCLOSE_BUTTON As Integer = &H200
   
    Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim myCp As CreateParams = MyBase.CreateParams
            myCp.ClassStyle = myCp.ClassStyle Or CP_NOCLOSE_BUTTON 
            Return myCp
        End Get
    End Property