Adicionar Evento à um Objeto

Pessoal,o objeto TEXTBOX tem uma metodo chamado SelectAll que eu chamo através do comando TEXTBOX.SelectAllIncluo esse comando no metodo GotFocus para selecionar todo o texto do campo

    Private SubTEXTBOX _GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TEXTBOX.GotFocus        TEXTBOX.SelectAll    End Sub

Como eu poderia incluir o GotFocus para um objeto dinamicamente.Motivo: fiz uma rotina que varre o form e encontra todos os TextBox, gostaria de incluir este metodo "SelectAll" no evento GotFocus em todos os Objetos.Alguem tem ideia??