LOCAL oform1

oform1=NEWOBJECT("form1")
oform1.Show( 1 )


DEFINE CLASS form1 AS form

	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT text1 AS textbox WITH ;
		Height =  23 , ;
		Left =  30 , ;
		TabIndex =  1 , ;
		Top =  18 , ;
		Width =  100 , ;
		Name = "Text1"

	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  56 , ;
		Left =  92 , ;
		Height =  126 , ;
		Width =  192 , ;
		Caption = "Command1", ;
		Style =  1 , ;
		TabIndex =  2 , ;
		Name = "Command1"

	PROCEDURE command1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		IF EMPTY(This.Picture)
			This.Style =  0  
			This.Picture = HOME( 4 )+"\bitmaps\assorted\smokes.bmp"
		ENDIF
	ENDPROC

	PROCEDURE command1.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		This.Style =  1 
		This.Picture = ""
	ENDPROC

ENDDEFINE