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