sub evt_newwin 
    {
    	  
    	$f= Wx::Frame->new( $mainframe, -1, 'New window' );
    	$b = Wx::ActiveX::IE->new( $f , -1 );    	
    	$event = $_[1];	
    	$event->{'ppDisp'}=$b;    	
    	$f->Show;	
    }