deshabilitar varios checkbox

Public Sub cbx_encabezado(ByVal op As Integer)
        Dim i As Integer = 0
        Dim cbx() As CheckBox = New CheckBox(4) {}
        cbx(0) = cbx_iddoc
        cbx(1) = cbx_emisor
        cbx(2) = cbx_receptor
        cbx(3) = cbx_totales
        cbx(4) = cbx_todos
        For Each items As CheckBox In cbx
            If i = op Then
                items.Checked = True
            Else
                items.Checked = False
            End If
            i += 1
        Next
    End Sub



fuente