Aqui les dejo este codigo que encontre navegando por Internet, este codigo lo ponen debajo de Public Class:
Dim _enabledcerrar As Boolean = False
_
Public Property enabledcerrar() As Boolean
Get
Return _enabledcerrar
End Get
Set(ByVal value As Boolean)
If _enabledcerrar <> value Then
_enabledcerrar = value
End If
End Set
End Property
Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
If _enabledcerrar = False Then
Const CS_NOCLOSE As Integer = &H200
cp.ClassStyle = cp.ClassStyle Or CS_NOCLOSE
End If
Return cp
End Get
End Property


0 comentarios:
Publicar un comentario