Sub frequency_done(noerror As Boolean, freq As Float)
'done event for frequency reading
If noerror Then
msglbl.Text=(freq&" Hertz")
Else
Dim trouble As Exception
trouble=LastException
comments.Append(trouble.Message&CRLF&"frequency read error"&CRLF&CRLF)
End If