myobj=createobject("myform")
myobj.show
read events

define class myform as form
top=20
left=20
height=300
width=300
caption="First"

add object mycmd as commandbutton with;
top=20,;
left=20,;
height=50,;
width=100,;
caption="Second Form"

procedure mycmd.click
clear read
=myfun()
endproc
enddefine

function myfun()
newobj=createobject("secondform")
newobj.show
read events
return

define class secondform as form
top=20
left=400
height=300
width=300
caption="Second"
enddefine

I want to show the first form, and then click the cmmand button to show the second form. But it cannot show it.
Please help me!
Thank you!