[Resolvido] TextBox Validating, problema de validação

Na sequencia do meu anterior problema arranjei forma de validar os emails e websites escritos na textbox e validados, e so se o texto fosse correcto os botoes apareciam, acontece que em modo de consulta tenho essas textbox com enabled=false, e assim ele nao faz a validação do texto e os botoes nao aparecem, o codigo que tenho é este:

Private Sub EmailTextBox_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles EmailTextBox.Validated
' Pattern ou mascara de verificação
Dim pattern As String = "^[a-zA-Z][\w\.-][a-zA-Z0-9]@[a-zA-Z0-9][\w\.-][a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"

' Verifica se o email corresponde a pattern/mascara
Dim emailAddressMatch As Match = Regex.Match(EmailTextBox.Text, pattern)

' Caso corresponda
If emailAddressMatch.Success Then
bt_mail_contactos.Visible = True
Else
bt_mail_contactos.Visible = False
End If
End Sub
O que tenho de mudar ou onde tenho de colocar o codigo para cada vez que cai um texto novo na texto box ele faça o teste e os botoes apareçam ou nao?