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