テキストボックスでCTRL+Aを押した時にテキストをすべて選択する

テキストボックスでCTRL+Aを押した時に、テキストをすべて選択するには、以下のようにします。

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    If e.KeyCode = Keys.A AndAlso e.Control Then
        DirectCast(sender, TextBox).SelectAll()
    End If
End Sub

TextBoxを継承したカスタムコントロールで実装すると、一箇所に書けばいいので楽になります。