schreibt da irgendein text rein und versucht ma die STRG + A tasten
(alles markieren)
ZiG_ Überflieger
Anmeldedatum: 07.03.2007 Beiträge: 1248
Verfasst am: 05.08.2007, 08:33
[code]
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA And Shift = 2 Then
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub
[/code]