I have these classes in my project

DEFINE CLASS NavButton as CommandButton
Height = 25
Width = 25
TableAlias = ""

PROCEDURE click
if not EMPTY(this.TableAlias ) then
SELECT(this.TableAlias )
endif
ENDPROC

PROCEDURE RefreshForm
_screen.Activate.refresh
ENDPROC
ENDdefine
*-----------------------------------------------------
DEFINE CLASS NavTop as NavButton
caption = "|<"

PROCEDURE click
DODEFAULT()
GO top
this.refreshform
endproc
enddefine

and I have a form with this cod in the Init event


SET PROCEDURE TO "F:\VFP_pelemaakav\Programs\navclass.prg" additive
MyVCr = CREATEOBJECT("NavTop")


I don't see the CommandButton on the form what's wrong please let me know




thanks