Selecionando todo o conteúdo de uma caixa de texto ao clicar em um botão

'Este exemplo mostra como selecionar todo o conteúdo
'de uma caixa de texto ao clicar em um botão.

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles Button1.Click

    'Coloca o foco na caixa de texto
    TextBox1.Focus()

    'Seleciona o conteúdo da caixa de texto
    TextBox1.SelectAll()

  End Sub

End Class