>nSessionId=ThisForm.DataSessionID >oForm=createobject("AddMilestone") >set datasession to oForm.DataSessionId >use Milepick order milestone >set filter to Milepick.MileId<>999 >*oForm.lstMilestones.RowSource="Milepick.milestone" >oForm.lstMilestones.FirstElement=1 >oForm.lstMilestones.RowSourceType=6 >oForm.lstMilestones.Value=1 >oForm.Show() >oForm.Activate() >*read events >nId=oForm.nMileId >use in Milepick >oForm.Release() >set datasession to nSessionID >if nId=0 > =Messagebox("Milestone addition cancelled.",16,"Notice...") > return 0 >endif >dimension AddMile(1,5) >AddMile(1,1)=R6Snc.PWS_ID >AddMile(1,2)=R6Enf1.EnfId >AddMile(1,3)=nId >AddMile(1,4)=R6Enf1.Act_Type >AddMile(1,5)=R6Enf1.Docket_1 >Insert into R6Mile from array AddMile >=TableUpdate(.t.,.t.,"R6Mile") >ThisForm.Refresh()>I have tried it with and without the "READ EVENTS", trying to set the RowSource in the listbox causes a "Syntax Error" but commenting it out still allows the RowSource to come from the field I want.