Перевести код рисования фигур с Visual Basic .NET - VB

Формулировка задачи:

Мне нужно переделать программный код с Visual Basic.NET на Visual Basic 6.0 Пожалуйста...

                    Листинг программы
                
 
                            
                        
 Dim Graph1 As Graphics
    Dim Pen1 As New Pen(Color.Black, 2)
    Dim Pen2 As New Pen(Color.Red, 2)
    Dim drawbrush1 As New SolidBrush(Color.Black)
    Dim drawfont1 As New Font("Arial", 10)
    Dim Y As Single
    Dim X As Single
    Dim N As Single
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        N = Val(TextBox1.Text)
        Graph1 = Me.PictureBox1.CreateGraphics()
        Graph1.Clear(Color.White)
        For X = -300 To 300 Step 150
            Graph1.DrawString(X / 100, drawfont1, drawbrush1, X + 300, 200)
        Next X
        For Y = -200 To 200 Step 100
            Graph1.DrawString(Y / 100, drawfont1, drawbrush1, 300, 200 - Y)
        Next Y
        Graph1.ScaleTransform(1, -1)
        Graph1.TranslateTransform(300, -200)
        Graph1.DrawLine(Pen1, -300, 0, 300, 0)
        Graph1.DrawLine(Pen1, 0, -200, 0, 200)
        For X = -600 To 600 Step 150
            Graph1.DrawLine(Pen1, X, -5, X, 5)
        Next X
        For Y = -600 To 600 Step 100
            Graph1.DrawLine(Pen1, -5, Y, 5, Y)
        Next Y
        For X = -3.14 To 3.14 Step 0.01
            Y = Math.Cos(N * X)
            Graph1.DrawEllipse(Pen1, X * 100, Y * 100, 1, 1)
        Next X
    End Sub

+ Как запостить тему, чтобы не получить ответ

Решение задачи: «Перевести код рисования фигур с Visual Basic .NET»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Комманда3_Click()
'Dim Pen1 As New Pen(Color.Black, 2) =
Dim Pen1 As Long: Pen1 = vbBlack
 
'Dim Pen2 As New Pen(Color.Red, 2)
Dim Pen2 As Long: Pen2 = vbRed
 
'Dim drawbrush1 As New SolidBrush(Color.Black)
Dim drawbrush1  As Long: drawbrush1 = vbBlack
 
 
'Dim drawfont1 As New Font(, 10)
Dim drawfont1_Name As String
Dim drawfont1_Size As Byte
drawfont1_Name = "Arial"
drawfont1_Size = 10
 
 
Dim Y As Single
Dim X As Single
Dim N As Single
 
 
 N = Val(TextBox1.Text)
 Рисунок1.Cls
 Рисунок1.Scale (-350, 1.5)-(350, -1.5)
 Рисунок1.Line (-330, 0)-(330, 0)
 Рисунок1.Line (0, 1.3)-(0, -1.3)
  
 Рисунок1.Font.Name = drawfont1_Name
 Рисунок1.Font.Size = drawfont1_Size
        For X = -300 To 300 Step 150
             Рисунок1.CurrentX = X-20
             Рисунок1.CurrentY = 0
             Рисунок1.Print X / 100
        Next X