* This code sets listbox points using the list value public of oF=createobject('MyForm') of.show of.AddObject('LLB','LeftListBox') of.AddObject('RLB','RightListBox') for c=1 to 12 && Populate List Box With Months lcMonth=left(upper(cmonth(date(2000,c,1)))+space(20),20) of.LLB.Additem(lcMonth) of.RLB.AddItem(lcMonth) endfor store 0 to of.LLB.ListIndex,of.RLB.ListIndex store .t. to of.LLB.Visible,of.RLB.Visible defin class MyForm as Form Autocenter=.t. enddef define class LeftListBox as ListBox left=5 width=150 procedure InterActiveChange LBIAChange('of.LLB','of.RLB') endproc enddef define class RightListBox as ListBox left =200 width=150 procedure InterActiveChange LBIAChange('of.RLB','of.LLB') endproc enddef procedure LBIAChange(ReadValue,SetValue) &SetValue..Value=&ReadValue..Value endproc