THISFORM.Erase(THISFORM.lst1) THISFORM.lst1.Selected(1) = .T.BOTTOM BUTTON
THISFORM.Erase(THISFORM.lst1) THISFORM.lst1.Selected(THISFORM.lst1.ListCount) = .T.UP BUTTON
LOCAL lnPos lnPos = THISFORM.Erase(THISFORM.lst1) IF lnPos = 1 THEN THISFORM.lst1.Selected(1) = .T. ELSE THISFORM.lst1.Selected(lnPos - 1) = .T. ENDIFDOWN BUTTON
LOCAL lnPos lnPos = THISFORM.Erase(THISFORM.lst1) IF lnPos = THISFORM.lst1.ListCount THEN THISFORM.lst1.Selected(THISFORM.lst1.ListCount) = .T. ELSE THISFORM.lst1.Selected(lnPos + 1) = .T. ENDIFERASE
FUNCTION ERASE LPARAMETERS oList LOCAL i FOR i = 1 TO oList.ListCount IF oList.Selected(i) THEN oList.Selected(i) = .F. RETURN i ENDIF ENDFOR ENDFUNCAssumptions: