CompuServe Messages

Sue, I'll let Don answer this one <smile>: Sue, 1) Make your menus control arrays. Then you can set a forms caption as follows: Sub Menu1_Click (Item) 'One proc for whole menu Form2.Caption = Menu1(Item).Caption 'Set the form's caption Select Case Item 'Process menu choices Case ITEM1 … etc 2) About the only aproach I can think of here is to track the scroll position manually in the Mouse/KeyDown event procedures. I don't know of a way to disable the scroll bar on a list box. To track the index of the item displayed at the top of the displayed list, use the following code: Declare Function SendMessage& Lib "user" (ByVal hWnd%, ByVal wMsg%,_ ByVal wParam%, ByVal lParam&) Const WM_USER = &H400 Const LB_GETOPINDEX = WM_USER + 15 Sub MySub TopItem = SendMessage&(ControlHWnd(List1), LB_GETOPINDEX, 0, 0) … … Hope this helps, Don Malin There is 1 Reply.