Runterscrollen in einer Textbox!

[hazzan]

hallo,
ist es irgendwie möglich in einer textbox ans ende zu scrollen?
also per befehl
mit der maus kann ich es auch =)

ich habe einen chat geschrieben, leider muss ich immer manuell runterscrollen, wenn eine neue nachricht kommt... gibt es dabei abhilfe?

ich bin für alle lösungsvorschläge offen

 

[hazzan]

sry für den post, hab auf activevb.de doch noch etwas gefunden
für leute die es interressiert:

'Dieser Source stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source !

Option Explicit

Private Declare Function SendMessage Lib "User32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As _
Integer, ByVal wParam As Integer, ByVal lParam As _
Long) As Long

Const EM_LINESCROLL = &HB6

Private Sub Form_Load()
Dim aa$, x&, y&

For x = 0 To 50
For y = 0 To 50
aa = aa & Chr$(Int(Rnd * 26) + 65)
Next y
aa = aa & vbCrLf
Next x
Text1.Text = aa
End Sub

Private Sub Command1_Click(Index As Integer)
Dim lngRet As Long, x&, y&

Select Case Index
Case 0: x = 0: y = -1
Case 1: x = 1: y = 0
Case 2: x = 0: y = 1
Case 3: x = -1: y = 0
End Select

Call SendMessage(Text1.hWnd, EM_LINESCROLL, x, y)
End Sub

 

[Shakie]

Das geht doch viel, viel einfacher:

Text1.SelStart = Len(Text1.Text)

Fertig!