print "The First Item is $tape{'-text'}\n";
    
   my @tapes = qw( 000001 000002 000003 000004 );
    
    foreach $tape (@tapes) {
        my $tapeid=Win32::GUI::Combobox::FindString($listview,$tape);
         ($tapeid>0) ? print "Found a Tape $tape is index $tapeid\n": print "Did not find tape $tape\n";
        Win32::GUI::Combobox::Select($listview,$tapeid);
    
    }