Как построить график функции - Visual Basic .NET

Dim X(200), Y(200), Min, Max, kf As Double
        For i As Integer = 0 To 200 'рассчитываем х у, определяем мин,макс
            Y(i) = i
            X(i) = 4 / 5 * Y(i) + Y(i) ' в соответствии с функцией
            If Min > X(i) Or i = 1 Then Min = X(i)
            If Max < X(i) Or i = 1 Then Max = X(i)
        Next
        'если разница макс-мин больше размеров рисунка сжимаем
        If Max - Min > 200 Then kf = (Max - Min) / 200 Else kf = 1
        'вычисляем координаты точек в пределах рисунка
        For i As Integer = 0 To 200
            X(i) = 200 - (X(i) - Min) / kf
            Y(i) = Y(i) / kf
        Next
        'рисуем
        Dim bt As New Bitmap(200, 200)
        Dim gr As Graphics = Graphics.FromImage(bt)
        For i As Integer = 0 To 200 - 1
            gr.DrawLine(Pens.Green, CInt(Y(i)), CInt(X(i)), CInt(Y(i + 1)), CInt(X(i + 1)))
        Next
        PictureBox1.Image = bt