Fabio this is great example !!!
>try this
>>PUBLIC oform1
>
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>
>DEFINE CLASS form1 AS form
>
>
> DoCreate = .T.
> Caption = "Form1"
> Name = "Form1"
>
>
> ADD OBJECT command1 AS commandbutton WITH ;
> Top = 24, ;
> Left = 256, ;
> Height = 27, ;
> Width = 84, ;
> Caption = "Command1", ;
> TabStop = .F., ;
> Name = "Command1"
>
>
> ADD OBJECT text1 AS textbox WITH ;
> Height = 23, ;
> Left = 44, ;
> Top = 44, ;
> Width = 100, ;
> Name = "Text1"
>
>
> ADD OBJECT text2 AS textbox WITH ;
> Height = 23, ;
> Left = 48, ;
> Top = 80, ;
> Width = 100, ;
> Name = "Text2"
>
>
> PROCEDURE command1.When
> this.Click
> RETURN .f.
> ENDPROC
>
>
> PROCEDURE command1.Click
> WAIT WINDOW "exec code" nowait
> ENDPROC
>_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
