Нарисовать оси координат и построить график функции

Public Class frmMain
 
    Private Sub frmMain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim dotSize As Integer = 4
        Dim maxValue = 5
        Dim PixelsPerValue = 50
        Dim rectSize = PixelsPerValue * (maxValue * 2)
 
        Dim bmp As New Bitmap(rectSize, rectSize)
        Dim g As Graphics = Graphics.FromImage(bmp)
        Dim b As Brush = New SolidBrush(Color.Red)
 
        g.DrawRectangle(Pens.Black, 0, 0, rectSize \ 2, rectSize \ 2)
        g.DrawRectangle(Pens.Black, rectSize \ 2, 0, rectSize \ 2 - 1, rectSize \ 2)
        g.DrawRectangle(Pens.Black, 0, rectSize \ 2, rectSize \ 2, rectSize \ 2 - 1)
        g.DrawRectangle(Pens.Black, rectSize \ 2, rectSize \ 2, rectSize \ 2 - 1, rectSize \ 2 - 1)
 
        For i = 1 To 9
            g.DrawLine(Pens.Black, rectSize \ 2 - 5, PixelsPerValue * i, rectSize \ 2 + 5, PixelsPerValue * i)
            g.DrawLine(Pens.Black, PixelsPerValue * i, rectSize \ 2 - 5, PixelsPerValue * i, rectSize \ 2 + 5)
        Next
 
        For x As Single = -maxValue To maxValue Step 0.01
            Dim y As Single = Math.Exp(x)
            Dim pixelX = x * PixelsPerValue + rectSize \ 2
            Dim pixelY = rectSize \ 2 - y * PixelsPerValue
 
            g.FillEllipse(Brushes.Red, pixelX - dotSize \ 2, pixelY - dotSize \ 2, dotSize, dotSize)
 
        Next
        e.Graphics.DrawImage(bmp, 0, 0)
 
    End Sub
End Class