Tetxbox die immer nach ganz unten scrollt

[cYrus]

Wie bekomme ich das hin, dass eine textbox immer nach ganz unten scrollt?

so long
dj-cYrus

[MeltDown]

hi cyrus,

versuch es damit:


For s = 1 To 50
Text1.SelText = "STRING" & vbCrLf
Next s


cya

[amoxys]

Oder nach jeder programmseitigen Veränderung einfach Text1.SelStart=Len(Text1) machen.
Wenn nur das Programm den Text verändert geht auch:
Private Sub Text1_Change()
Text1.SelStart = Len(Text1)
End Sub