Public Class MyCheckBox
    Inherits System.Windows.Forms.CheckBox
    Private Const WM_NCHITTEST As Int32 = &H84
    Private Const WM_KEYDOWN As Int32 = &H100
    Private _ReadOnly As Boolean
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        '// Debug.WriteLine(m.ToString)
        If Me.[ReadOnly] AndAlso (m.Msg = WM_NCHITTEST OrElse m.Msg = _
          WM_KEYDOWN) Then Return
        MyBase.WndProc(m)
    End Sub
    Public Property [ReadOnly]() As Boolean
        Get
            Return _ReadOnly
        End Get
        Set(ByVal Value As Boolean)
            _ReadOnly = Value
        End Set
    End Property
End Class