Option Explicit
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
  ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As _
  Any) As Long
Private Const WM_GETTEXTLENGTH As Long = &HE
Private Const EM_SETSEL As Long = &HB1
 
Private Sub Command1_Click()
Dim lLen As Long
lLen = SendMessage(Text1.hwnd, WM_GETTEXTLENGTH, 0, ByVal 0&)
SendMessage Text1.hwnd, EM_SETSEL, lLen, ByVal lLen
Text1.SetFocus 
End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co