Auto Scroll in Text Box

Hi all Gurus :))

Hardcore learning VB at present so ya guys will see me here most of time now hehe...
First question is this :)

A text box that scrolls continuously.
If you have seen this in programs, it would in the About box where the information is scrolled top to bottom continuosly.

Can anyone help me with this please?
my prefered addy is [email protected]

thanks in advance
Zombrax

Code:

---

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_SCROLL = &HB5
Private Const SB_LINEDOWN = 1
Private Const SB_PAGEDOWN = 3

Private Sub cmdPageDown_Click()
Call SendMessage(Text1.hwnd, EM_SCROLL, SB_PAGEDOWN, 0&)
End Sub

Private Sub cmdLineDown_Click()
Call SendMessage(Text1.hwnd, EM_SCROLL, SB_LINEDOWN, 0&)
End Sub

---

This is just a sample to ask you if this is what you want.

Well, is it?

Quote:

---

Originally posted by V(ery) Basic

Code:

---

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_SCROLL = &HB5
Private Const SB_LINEDOWN = 1
Private Const SB_PAGEDOWN = 3

Private Sub cmdPageDown_Click()
Call SendMessage(Text1.hwnd, EM_SCROLL, SB_PAGEDOWN, 0&)
End Sub

Private Sub cmdLineDown_Click()
Call SendMessage(Text1.hwnd, EM_SCROLL, SB_LINEDOWN, 0&)
End Sub

---

This is just a sample to ask you if this is what you want.

Well, is it?

---

========================

Thanx for the reply. However, this code will do the auto scroll if a button is clicked right?
Now thats not what i am looking for.
See this code is for the About box of a program where by when the user clicks the About button under help, a about form opens up with different graphics etc along with this text box that scrolls continuously at a slow rate.

Is this possible please? Please help me out.

thanx
Zombrax