[VB6] Box Testuale che vada a capo

[Mabi]

Per muovere da programma la scrollbar devi usare la SendMessage.
La dichiari così:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As _
Integer, ByVal lParam As Any) As Long

Const EM_LINESCROLL = &HB6

e già che ci sei inserisci l'apposita costante.
Quindi, ti basta richiamarla ogni volta che ti serve:

Dim Cont1 As Byte

Text1.Text = ""
For Cont1 = 1 To 15
  Text1.Text = Text1.Text & "Riga " & _
  CStr(Cont1) & vbCrLf
  SendMessage Text1.hwnd, EM_LINESCROLL, 0&, 6& '(15-10)+1
Next Cont1

Ciao