our $test = $mainform->AddTextfield(
            -name=>'test',
            -text=>'test',
            -left=>200,-top=>200, 
            -width=>100,-height=>20,
            -onClick=>sub{},
            ) or die "control creation failed: $!\n";