Botão de alternancia

[alan_embrasec 0]

Olá Pessoal,

 

Tenho aqui uma duvida boba,

 

Gostaria que vcs me ajudassem.

 

No meu formulario eu tenho UM botão de alternancia,

 

Quando eu clico nele exibe mais 3 outros botões(normais), que estavam Ocultos.

 

Segue o Codigo que desenvolvi para o mesmo:

 

Private Sub Alternancia01_Click()

 

If Alternancia01.Value = True Then

Botao12.Enabled = True

Botao13.Enabled = True

Botao14.Enabled = True

Else

Botao12.Enabled = False

Botao13.Enabled = False

Botao14.Enabled = False

End If

 

End Sub

 

Porem o mesmo não funciona!

 

gostaria de saber se tenho que alterar alguma propriedade dos botoes no digner deles, ou algum erro no codigo.

 

Eu acho q o erro esta nesse "If Alternancia01.Value = True Then"

 

Segue um print do erro!

 

 

 

Vlw pessoal, Abraço!

 

alan.

[scorpio 7]

Você deve ter outra sub com o nome Alternancia01_Click

Apaque uma.