>Boris thanks for you reply, i run this prg "do new"
>where i will be put these codes.
>when i put in prg. i get message this can use with a method...

O, If you invoke this PRG from within a Form pass the form name as parameter:

* Within form:
Do New WITH thisform.New

** Outside form:
Do New WITH thisform.New

** Change New.Prg

LPARAMETERS lcFormName

IF VARTPE(lcFormName) == [C]
   DEFINE WINDOW ....... IN WINDOW (lcFormName)
ELSE
   DEFINE WINDOW ....... 
ENDIF
.....