set mainform [form label "Hello World" code { stringitem label "Hello World" cmd label "Exit" code exit type exit }] setcurrent $mainform