sub ::cbParameter_Change{defined(my $win = $Win32::GUI::Loft::window{Hallblacks} ) or return(1);
    my $fh;   # general filehandle
    my $list = $win-> cbParameter-> GetLBText($win-> cbParameter-> GetCurSel());
    my $path = getdcwd()."\\Lists\\$list.txt";
    if (!(-e $path)) {
        open($fh, ">$path");
        close $fh;
    };
    $win-> reReport-> Load($path, 1);
}