Создать проект на языке Visual Basic для решения функции F(x)

Проект Visual Basic
Public Class Form1
Dim x As Single, i As Integer
Private Sub Button1_Click()
Picture1.Scale(-10, 10) 'Масштабирование
Picture1.DrawWidth = 2 'задание толщины рисуемых объектов
Picture1.Line(0, -10) 'рисование оси Y
Picture1.Line(-10, 0) 'рисование оси X
Picture1.Print("Y")
' ось Х
For Me.i = -10 To 10
Picture1.PSet(i, 0)
Picture1.Print(i)
Next Me.i
' ось Y
For Me.i = -10 To 10
Picture1.PSet(0, i)
Picture1.Print(i)
Next Me.i
'Построение графика по точкам
For Me.x = -10 To 10 Step 0.005
Picture1.PSet(x, f(x))
Next x
End Sub
Private Sub Command2_Click() 'Программный код для кнопки Выход
End
End Sub
' Задание пользовательской функции
Private Function f(ByVal x As Single) As Double
f = sqrt(5)*Tg(5x)
End Function
Private Function Picture1() As Object
Throw New NotImplementedException
End Function
End Class