Reconocer CheckBoxes

[pkj]

Prueba asi:

Código vb:

Private Sub chkDoc_Click(Index As Integer)
    CompruebaChecks
End Sub
 
Private Sub CompruebaChecks()
    TextDocumentacion.Text="0"
    If chkDoc(1).Enabled = True And chkDoc(1).Value = 1 Then
        TextDocumentacion.Text = "1"
    End If
    If chkDoc(2).Enabled = True And chkDoc(2).Value = 1 Then
        TextDocumentacion.Text = "1"
    End If
    If chkDoc(3).Enabled = True And chkDoc(3).Value = 1 Then
        TextDocumentacion.Text = "1"
    End If
 
    If chkDoc(1).Enabled = True And chkDoc(1).Value = 0 Then
        TextDocumentacion.Text = "0"
    End If
    If chkDoc(2).Enabled = True And chkDoc(2).Value = 0 Then
        TextDocumentacion.Text = "0"
    End If
    If chkDoc(3).Enabled = True And chkDoc(3).Value = 0 Then
        TextDocumentacion.Text = "0"
    End If
End Sub
 
Private Sub c1_Change(Index As Integer)
    If Val(c1(1)) <> 0 Or Val(c1(2)) <> 0 Or Val(c1(3)) <> 0 Or Val(c1(4)) <> 0 Or Val(c1(5)) <> 0 Then
        chkDoc(1).Enabled = True
    Else
        chkDoc(1).Enabled = False
    End If
    CompruebaChecks
End Sub
 
Private Sub c2_Change(Index As Integer)
    If Val(c2(1)) <> 0 Or Val(c2(2)) <> 0 Or Val(c2(3)) <> 0 Or Val(c2(4)) <> 0 Or Val(c2(5)) <> 0 Then
        chkDoc(2).Enabled = True
    Else
        chkDoc(2).Enabled = False
    End If
    CompruebaChecks
End Sub
 
Private Sub c3_Change(Index As Integer)
    If Val(c3(1)) <> 0 Or Val(c3(2)) <> 0 Or Val(c3(3)) <> 0 Or Val(c3(4)) <> 0 Or Val(c3(5)) <> 0 Then
        chkDoc(3).Enabled = True
    Else
        chkDoc(3).Enabled = False
    End If
    CompruebaChecks
End Sub