Public Class Form1
    Dim Graph1 As Graphics
    Dim Pen1 As New Pen(Color.Black, 2)
    Dim Pen2 As New Pen(Color.Red, 2)
    Dim brush1 As New SolidBrush(Color.Black)
    Dim font1 As New Font("Arial", 10)
    Dim X, Y, len, height As Single

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    'Функция которую рисуем
    Function fun(x As Single)
        fun = Math.Sin(x * 3.14 / 180)
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Graph1 = Me.PictureBox1.CreateGraphics()
        'Рисуем шкалу координат
        'По оcи X
        len = 360
        height = 150
        For X = -len To len Step 90
            Graph1.DrawString(X, font1, brush1, X + len, height)
        Next X
        'По оcи Y

        For Y = -height To height Step 50
            Graph1.DrawString(Y / 50, font1, brush1, len, height - Y)
        Next Y
        'Преобразование компьютерной системы координат в математическую
        'Поворот оси Y
        Graph1.ScaleTransform(1, -1)
        'Сдвиг по осям X и Y
        Graph1.TranslateTransform(len, -height)
        'Рисование осей математической системы координат
        'Ось X
        Graph1.DrawLine(Pen1, -len, 0, len, 0)
        'Ось Y
        Graph1.DrawLine(Pen1, 0, -height, 0, height)
        'Делаем засечки по осям координат
        'По оси X
        For X = -len To len Step 90
            Graph1.DrawLine(Pen1, X, -5, X, 5)
        Next X
        'По оси Y
        For Y = -height To height Step 50
            Graph1.DrawLine(Pen1, -5, Y, 5, Y)
        Next Y
        'Рисуем график функции
        For X = -len To len Step 1
            Y = fun(X)
            Graph1.DrawEllipse(Pen1, X, Y * 50, 1, 1)
        Next X
    End Sub
End Class