>PUBLIC oform1
>
>ACTIVATE  WINDOW "Debug Output"
>
>ON ESCAPE oform1=NULL
>
>SET ESCAPE ON
>		
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>
>DEFINE CLASS form1 AS form
>
>	Caption = "THE BUGS HAVE A GOOD TIME AND THEY RACE"
>	STARTDATETIME = DATETIME()
>	
>	ADD OBJECT pageframe1 AS pageframe WITH ;
>		PageCount = 4, ;
>		Top = 36, ;
>		Left = 36, ;
>		Width = 241, ;
>		Height = 169
>	
>	PROCEDURE Init
>		WAIT WINDOWS "PRESS ESC TO STOP" NOWAIT
>	
>	PROCEDURE Destroy
>		WAIT CLEAR
>	
>	PROCEDURE GotFocus
>		DEBUGOUT PROGRAM()
>		KEYBOARD '{RIGHTARROW}'
>	ENDPROC
>
>	PROCEDURE pageframe1.Page1.DeActivate
>		NODEFAULT
>	ENDPROC
>	
>	PROCEDURE pageframe1.Page2.DeActivate
>		NODEFAULT
>	ENDPROC
>
>	PROCEDURE pageframe1.Page2.DeActivate
>		NODEFAULT
>	ENDPROC
>	
>	PROCEDURE pageframe1.Page3.DeActivate
>		NODEFAULT
>	ENDPROC
>
>	PROCEDURE pageframe1.Page4.DeActivate
>		NODEFAULT
>	ENDPROC
>
>ENDDEFINE
>