sub on_click_insert_image{ 
    my ($i_frame, $event) = @_; 
    my $file = Wx::FileSelector('Choose a media file');                # Select video file 
    $i_frame->{Ctl_Report_Text_Txt}->WriteImage(Wx::Image->new($file, wxBITMAP_TYPE_PNG)); 
        return $i_frame; 
}

##</code><code>##

" $i_frame->{Ctl_Report_Text_Txt}->AddImage(Wx::Image->new($file, wxBITMAP_TYPE_PNG)); "

##</code><code>##

" $i_frame->{Ctl_Report_Text_Txt}->WriteImageImage(Wx::Image->new($file, wxBITMAP_TYPE_PNG)); "