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