Sub btnCalc_Click
Dim Res As Float = edtResist.Text
Dim Watt As Float = edtWatt.Text
Dim Amp As Float = Watt / Res
Dim Volt As Float = (Volt * Volt) / Watt
Dim Ans1 As Float = Sqrt (Amp As Double) As Double
Dim Ans2 As Float = Sqrt (Volt As Double) As Double
lblAmps.Text = NumberFormat(Ans1, 1,2)
lblVolts.Text = NumberFormat( Ans2, 1,2)
End Sub