Here is an example of ONE way to do it:

CASE 'Main Form'$ThisForm.Caption
WITH ThisForm.pgfbase1
.page1.SetAll('ReadOnly',.T.,"Txtbase")
.page1.SetAll('Enabled',.F.,"Chkbase")
.page1.SetAll('ReadOnly',.T.,"Cbobase")
.page1.SetAll('Enabled',.F.,"Cbobase")
.page1.SetAll('ReadOnly',.T.,"Edtbase")
.page1.cmdEdit.Caption="View Req Items"
.page2.SetAll('ReadOnly',.T.,"Grdbase")
.page2.Caption=" List (Read Only) "

ENDWITH

Bill Cordray