use Win32::GUI;
my $tree = bless( {
      '-type' => 0,
      '-name' => 'Guessing',
      '-handle' => $treehandle,
      '-accel' => 0
    }, 'Win32::GUI::TreeView' )