Per [STRG] + [A] Text in einer TextBox markieren (VB6)

[__||__]

Guten Morgen,

kann mir einer von euch sagen, wie ich per [STRG] + [A] den kompletten Text in einer TextBox markieren kann.

Ich verwende VisualBasic 6.

Danke

[illuminator]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = vbKeyA) And (Shift Or 2) Then
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    End If
End Sub

[__||__]

vielmals

Bis dann