Public Class lin2db Private Sub ToDecibel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToDecibel.Click txtDecibel.Text = (20.0 * Math.Log10(txtLinear.Text)).ToString("F04") End Sub Private Sub ToLinear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToLinear.Click txtLinear.Text = (10.0 ^ (txtDecibel.Text / 20.0)).ToString("F04") End Sub End Class