[perl-win32-gui-users] Drop down boxes

[Forhan, Michael]

I am having a wierd problem utilizing drop down boxes. Using the following
Code:

 my $DataList = $Window->AddCombobox( -name     => 'DataList'
                                     ,-width    => 70
                                     ,-height   => 100
                                     ,-top      => 5
                                     ,-left     => 70
                                     ,-addstyle => WS_VSCROLL | 2 
                                    );

 my $key;
 foreach $key ( @Data ) {
     $DataList->Add( $key );
 }

I get a window to display a drop down box, but the fields appear to be
empty, until I use my keyboard to scroll through the list (via the up and
down arrows). I tried adding a $DataList->Show(); and even placing a
$DataList->Reset(); before adding the data. None of these appear to work.
Also, when I click on the arrow to display the rest of the list, it 'locks'
open, not allowing me to close it until I press esc on the keyboard (and
sometimes that doesn't work right away.) Any idea of how I can fix this?

Thanks,
-Mike