Somebody wanted to know, how to scroll a Listbox to a given index
---------------------------------Schnipp
schnapp--------------------------------
/*:VRX */
LB_SetTopIndex: Procedure
 Parse Arg Hwnd,Index
 if (Datatype(Index) \= "NUM") then return 0
 index = index -1*(index>0)
 ok = VRMethod("Screen","WinSendMsg",Hwnd,"0x0162",Index,0 )
return ok

---------------------------------Schnipp
schnapp--------------------------------

Call it with the Window - Handle and the index of the item in the ListBox
Have fun

--=={Regards Heinz Mueller [Team OS/2 int.]}==--