text and list boxes

[mooose]

Howdy All

My question is how do you scroll down a text box in code? and how to you highlight an item in a listbox and then scroll down to the next one and highlight that so you can sort of check a listboxes content line by line.

thanx

------------------
Mooose

Example: Highlighted item in the Listbox.

place a listbox on your form and called "List"
and place two buttons on it. name the first button "cmdadd" and the second "cmdnext"
and place this code in your form.

Private Sub cmdadd_Click()
Dim I As Long
While Not I >= 1000
List.AddItem Rnd(I)
I = I + 1
Wend
List.ListIndex = 0
End Sub

Private Sub cmdNext_Click()
List.ListIndex = List.ListIndex + 1
End Sub

Now you can easy scroll all the items...