Would someone please explain how to fix this code with "Option Strict" on:

Private Function CalculateCircumference(ByVal radius As Single) As Single
        Return (radius * 2) * System.Math.PI
    End Function

I get a squiggly line under (radius * 2) * System.Math.PI...

Option Strict disallows me from converting from Double to Single? Please explain. I've looked through dynamic help...no examples

I've tried: CType, CSng: (CSng(radius * 2, txtRadius.Text)) * System...etc.

Don't think I have the big picture...Thanks in advance...Kevin

Private Function CalculateCircumference(ByVal radius As Single) As Single
    Return CType((radius * 2) * System.Math.PI, Single)
End Function


Peter

Thank you! planoie