my $numerator= $IcqText->GetValue;
if( $numerator eq '') { $numerator= 0 };
$self->{AMP1}->Icq( $numerator / 1000 );