Public Class frmTest
    Private Sub frmTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        CheckBox1.Checked = True
    End Sub

    Private Sub EnableCheckBox(ByVal C1 As Boolean, ByVal C2 As Boolean, ByVal C3 As Boolean)

        If CheckBox1.Checked <> C1 Then
            CheckBox1.Checked = C1
        End If
        If CheckBox2.Checked <> C2 Then
            CheckBox2.Checked = C2
        End If
        If CheckBox3.Checked <> C3 Then
            CheckBox3.Checked = C3
        End If

    End Sub

    Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click
        Call EnableCheckBox(True, False, False)
    End Sub

    Private Sub CheckBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox2.Click
        Call EnableCheckBox(False, True, False)
    End Sub

    Private Sub CheckBox3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox3.Click
        Call EnableCheckBox(False, False, True)
    End Sub

End Class

Ooopsss!! sorry Dani...here is it my friend :-)

Edited 3 Years Ago by ReyJEnriquez

This question has already been answered. Start a new discussion instead.