set newform [form label "MIDP Form" code { set tf [textfield label "1"] set tf1 [textfield label "2"] cmd label {Exit} type exit code exit }] setcurrent $newform