autoscroll on/off på en textbox

det skal lige siges at det skal laves med en helt normalt tekstbox (fx. text1)

kan du ikke bruge:

Private Sub Text1_Change()
Text1.SelStart = Len(Text1)
End Sub

den kan jeg bruge til at scrolle helt nederst med..
problemet er, at så snart man tilføjer noget i textboxen så scroller den automatisk helt øverst..
så det jeg ikke kan finde ud af er at tilføje noget tekst og på samme tid blive med at have scrolleren hvor den var før..

Tilføjer du teksten i topen eller i bunden??
Hvad skal det bruges til??

altså..
text1.text = text1.text & \"tekst her\" & vbcrlf
.
det skal bruges til console...
sådan at hvis man skal kopiere noget så skal man kunne scrolle op og kopiere det uden den scroller nederst automatisk igen

jeg fandt selv ud af det..
hvis nogen er interreseret i at vide det kan det maile mig på f2@esenet.dk eller skrive det her :O)

f2 >>du kan da bare skrive koden her:

tja.. det kan jeg vel...

\'bas-module-start\'
Declare Function SendMessage Lib \"user32.dll\" Alias \"SendMessageA\" (ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Public Const EM_GETFIRSTVISIBLELINE = &HCE
Public Const EM_LINESCROLL = &HB6
\'bas-module-slut-


\'form module med 2 tekstbokse og en checkbox og en knap på-start\'
Private Sub Command1_Click()
Dim FirstVis&, NowVis&
FirstVis = SendMessage(Text1.hWnd, EM_GETFIRSTVISIBLELINE, 0, 0)
Text1.Text = Text1.Text & Text2.Text & VbCrLf
If check1.value = 1 Then
Text1.SelStart = Len(Text1)
Else
SendMessage Text1.hWnd, EM_LINESCROLL, 0, ByVal FirstVis
End If
End Sub
\'form-slut\'

/F2