Hi,

There is what the yur response look like

Public function MyFunc(Byval x as Double) as double

If Not(x.IsNaN) Then

Return(Math.sin(x))

else

Return(Double.IsNaN)

endif

end function

Public Sub DrawValue()

Dim y as Double = 0D

Dim z as Double = 0D

Dim g as Graphics = Form1.CreatGraphics()

For x as Integer=0 To 100

y=CDbl(Math.PI*x)

z=MyFunc(y)

g.DrawLine(Pen.Black, Xx, Yy, y, z)

Next

end Sub

MTOMY