Mind your html Nancy! :-)

This silly thing keeps trying to see it all as a HTML tag...

>Sorry, Joe...The send seemed to cut off part of the code. Here is the code again.
>

>
>oX = CREATEOBJECT( 'form1' )
>oX.show()
>READ EVENTS
>CANCEL ALL
>CLEAR ALL
>
>**************************************************
>*-- Form:         form1 (c:\nec\temp.scx)
>*-- ParentClass:  form
>*-- BaseClass:    form
>*-- Time Stamp:   08/05/99 12:40:02 PM
>*
>
>DEFINE CLASS form1 AS form
>
>
>	DataSession = 2
>	Top = 0
>	Left = 0
>	Height = 95
>	Width = 214
>	DoCreate = .T.
>	Caption = "Form1"
>	Name = "Form1"
>
>
>	ADD OBJECT combo1 AS combobox WITH ;
>		BoundColumn = 2, ;
>		ColumnCount = 2, ;
>		RowSourceType = 3, ;
>		RowSource = 'SELECT CNAME + ":" + CDESC AS CDESC, CNAME FROM oLookup INTO CURSOR vwLookUp ORDER BY 1', ;
>		ControlSource = "oTable.cname", ;
>		Height = 24, ;
>		Left = 15, ;
>		Top = 19, ;
>		Width = 85, ;
>		Name = "Combo1"
>
>
>	ADD OBJECT command1 AS commandbutton WITH ;
>		Top = 48, ;
>		Left = 15, ;
>		Height = 27, ;
>		Width = 84, ;
>		Caption = "&gt&gtGo Back", ;
>		Name = "Command1"
>
>
>	ADD OBJECT command2 AS commandbutton WITH ;
>		Top = 48, ;
>		Left = 103, ;
>		Height = 27, ;
>		Width = 84, ;
>		Caption = ">>Go Forward", ;
>		Name = "Command2"
>
>
>	ADD OBJECT text1 AS textbox WITH ;
>		ControlSource = "oTable.dadded", ;
>		Height = 23, ;
>		Left = 103, ;
>		Top = 20, ;
>		Width = 84, ;
>		Name = "Text1"
>
>	PROCEDURE UnLoad
>		CLEAR EVENTS
>	ENDPROC
>
>	PROCEDURE Load
>
>		CREATE CURSOR oLookup ( CNAME C (3), CDESC C (100) )
>		INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N1', 'Really Long Description1' )
>		INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N2', 'Really Long Description2' )
>		INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N3', 'Really Long Description3' )
>		INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N4', 'Really Long Description4' )
>		INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N5', 'Really Long Description5' )
>		INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N6', 'Really Long Description6' )
>		INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N7', 'Really Long Description7' )
>		INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N8', 'Really Long Description8' )
>		INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N9', 'Really Long Description9' )
>		INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N10', 'Really Long Description10' )
>		GO TOP IN oLookup
>		
>		CREATE CURSOR oTable ( CNAME C (10), DADDED D )
>		INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) )
>		INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) )
>		INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) )
>		INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) )
>		INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) )
>		INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) )
>		INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) )
>		INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) )
>		GO TOP IN oTable
>
>	ENDPROC	
>	PROCEDURE command1.Click
>		SKIP -1 IN oTable
>		IF BOF( 'oTable' )
>			LOCATE
>		ENDIF
>		thisform.refresh
>	ENDPROC
>
>
>	PROCEDURE command2.Click
>		SKIP 1 IN oTable
>		IF EOF( 'oTable' )
>			GO BOTTOM
>		ENDIF
>		thisform.refresh
>	ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: form1
>**************************************************
>