LOCAL lcValue
DO CASE
CASE this.Value <> 1 && 1 is the "All Screens" case
SET ORDER TO screen_top && Order: by Screen and Topic
lcValue = thisform.aForms[this.Value]
SET FILTER TO screen_id = "&lcValue"
IF !EVAL(FILTER()) && Not pointing to a valid record within filter scope
LOCATE
ENDIF
CASE this.Value = 1 && All forms
SET FILTER TO screen_id <> "*"
SET ORDER TO topic && Order: Alpha by Topic
ENDCASE
thisform.LockScreen = .T.
thisform.RefreshFeatures()
THISFORM.lstFeatures.Requery()
*-- Redisplay the list of topics
thisform.edtFeatureText.Refresh()
thisform.LockScreen = .F.