Habilitar e Desabilitar - Caixa de Texto

Senhores (a) Bom Dia!

Em meu sistema tenho um formulario a qual tenho um quadro de Opção Sim e Não, sendo que neste quadro eu gostaria que o mesmo Habilitasse e Desabilitasse algumas caixas de texto. Será que vcs podem me ajudar.

No Evento apos atualizar do Seu GRUPO de Opçoes (Não é da Opção, e sim do grupo) coloque:

Código:

Private Sub Quadro0_AfterUpdate()
Select Case Quadro0
    Case 1
    Me.Texto7.Enabled = True
    Me.Texto9.Enabled = True
    Me.Texto11.Enabled = True
    Me.Texto13.Enabled = True
    Case 2
    Me.Texto7.Enabled = False
    Me.Texto9.Enabled = False
    Me.Texto11.Enabled = False
    Me.Texto13.Enabled = False
    End Select
End Sub


A opção Sim recebe o Valor=1
A opção Nao recebe valor=2
Dessa forma, se selecionar 1 ele habilita tudo, se selecionar 2 desabilita tudo.