Wx::Event::EVT_TEXT($self, $IcqText, sub {
                        my ($self, $event) = @_;
                        {
                        no warnings;
                        $self->{AMP1}->Icq(($IcqText->GetValue) / 1000);
                        }
                        });