>IF ALEN(ga_source) < 10 (the other listbox can only go up to 10 items) > SET TALK OFF > =ADEL(ga_list,(THIS.LISTINDEX)) > DIMENSION ga_list(ALEN(ga_list)-1) > THIS.NUMBEROFELEMENTS = ALEN(ga_list) > IF ALEN(ga_source) = 1 AND ga_source[1] = 'None' > ga_source[alen(ga_source)] = pc_list > ELSE > DIMENSION ga_source(ALEN(ga_source)+1) > ga_source[alen(ga_source)] = pc_list > THISFORM.list1.NUMBEROFELEMENTS = ALEN(ga_source) > ENDIF > =ASORT(ga_source) >ELSE > MsgBoxTmr("Maximum number of related forms reached!",'(WEIA) Limit Error',"OK", "!", 1, 10) > RETURN >ENDIF >THISFORM.REFRESH > >>