PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Height = 293 Width = 266 DoCreate = .T. AutoCenter = .T. Caption = "Form1" BackColor = RGB(0,0,255) AllowOutput = .F. Name = "Form1" ADD OBJECT pageframe1 AS pageframe WITH ; PageCount = 4, ; Top = 18, ; Left = 40, ; Width = 170, ; Height = 250 && ****** LOOK PROCEDURE gotfocus CLEAR WITH this.pageframe1 FOR l=1 TO 20 * "forward sequence" FOR j=0 TO 1 .TabStretch = j FOR K=0 TO 3 .TabOrientation = k NEXT NEXT * "backward sequence" FOR j=1 TO 0 STEP -1 .TabStretch = j FOR K=3 TO 0 STEP -1 .TabOrientation = k NEXT NEXT ? "TabStretch =",.TabStretch,"TabOrientation="; ,.TabOrientation , .height,.width,.pageheight,.pagewidth NEXT ENDWITH ENDDEFINE