สอบถามคำสั่งcode vs2017 การใช้checkbox แต่ไม่ให้ทำงานแสดงผลด้วยการคลิ๊ก(click)

checkBox1.Enabled = false

 Me.CheckBox1.Checked = False

Me.CheckBox1.Checked = True

 Dim r As Integer = 0
        If r = 0 Then
            If Me.CheckBox1.CheckState = CheckState.Checked Then
                Me.CheckBox1.Checked = False
            End If
        ElseIf r = 1 Then
            If Me.CheckBox1.CheckState = CheckState.Unchecked Then
                Me.CheckBox1.Checked = True
            End If
        End If