Графика. Перевод кода с VB

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim X1 As Integer
        Dim X2 As Integer
        Dim X3 As Integer
        Dim X4 As Integer
        Dim z As Integer
 
        If z = 0 Then
            MsgBox("Миқдори талабагон ва баҳои онҳо ворид карда нашудааст.")
        Else
            X1 = CInt(TextBox1.Text)
            X2 = CInt(TextBox2.Text)
            X3 = CInt(TextBox3.Text)
            X4 = CInt(TextBox4.Text)
            z = X1 + X2 + X3 + X4
            REM PictureBox2.Scale(0, z)-(6, 0)
            REM PictureBox2.Size(1, 0)(2, X1)
            REM PictureBox2.Line(2, 0) - (3, X2), vbGreen, bF
            REM PictureBox2.Line(3, 0) - (4, X3), vbYellow, bF
            REM PictureBox2.Line(4, 0) - (5, X4), vbBlue, bF
            REM PictureBox2.ForeColor = QBColor(0) As Integer
            REM PictureBox2.FontBold = True
            REM PictureBox2.FontSize = 10
            REM PictureBox2.CurrentX = 1.1
            REM PictureBox2.CurrentY = 3
            Dim a As Integer
            a = (X1 * 100) / z
            TextBox6.Text = a
            REM Picture2.CurrentX = 2.1
            REM PictureBox2.CurrentY = 3
            Dim b As Integer
            b = (X2 * 100) / z
            TextBox7.Text = b
            REM PictureBox2.CurrentX = 3.1
            REM PictureBox2.CurrentY = 3
            Dim c As Integer
            c = (X3 * 100) / z
            TextBox8.Text = c
            REM PictureBox2.CurrentX = 4.1
            REM PictureBox2.CurrentY = 3
            Dim d As Integer
            d = (X4 * 100) / z
            TextBox9.Text = d
        End If
End sub

With Chart1
                .Series.Clear()
                .Series.Add("Фоизҳо")
                .Series("Фоизҳо").Points.AddXY("5", a)
                .Series("Фоизҳо").Points.AddXY("4", b)
                .Series("Фоизҳо").Points.AddXY("3", c)
                .Series("Фоизҳо").Points.AddXY("2", d)
 
                .ChartAreas(0).AxisX.MajorGrid.Interval = 1
                .ChartAreas(0).AxisX.LabelStyle.Interval = 1
                .ChartAreas(0).AxisX.MajorTickMark.Interval = 1
            End With

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    With DataGridView1
        .Columns.Add("Group", "Группа")
        .Columns.Add("Estimation", "Оценка")
        .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
        .Rows.Add({"Группа А3", 3})
        .Rows.Add({"Группа А1", 5})
        .Rows.Add({"Группа Б2", 2})
        .Rows.Add({"Группа А4", 4})
        .Rows.Add({"Группа С1", 5})
        .Rows.Add({"Группа С2", 5})
        .Rows.Add({"Группа Б1", 3})
    End With
End Sub
Private Sub DataGridView1_RowPostPaint(sender As System.Object, e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
    With DataGridView1.Rows(e.RowIndex)
        Select Case .Cells(1).Value
            Case 1
                .DefaultCellStyle.BackColor = Color.DarkRed
            Case 2
                .DefaultCellStyle.BackColor = Color.Red
            Case 3
                .DefaultCellStyle.BackColor = Color.LightCoral
            Case 4
                .DefaultCellStyle.BackColor = Color.Orange
            Case 5
                .DefaultCellStyle.BackColor = Color.Gold
            Case Else
                .DefaultCellStyle.BackColor = Color.LightGray
        End Select
    End With
End Sub

g.FillRectangle(Brushes.LightGreen, New Rectangle(xxi, 0, wd, yyi))

Dim Graph1 As Graphics
        Graph1 = PictureBox2.CreateGraphics()
        Dim Brush1 As New SolidBrush(Color.Blue)
        Dim Pen1 As New Pen(Color.Red, 3)
        Dim blackPen As New Pen(Color.Black, 3)
 
        Brush1.Color = Color.Red
        Graph1.FillRectangle(Brush1, 40, 40, 40, 160)
 
        Brush1.Color = Color.Lime
        Graph1.FillRectangle(Brush1, 120, 60, 40, 160)
 
        Brush1.Color = Color.Yellow
        Graph1.FillRectangle(Brush1, 200, 80, 40, 160)
 
        Brush1.Color = Color.Blue
        Graph1.FillRectangle(Brush1, 280, 100, 40, 160)

Public Class Form2
    Dim pcgr1 As Graphics
    Dim pcgr2 As Graphics
 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        pcgr1 = PictureBox1.CreateGraphics
        pcgr2 = PictureBox2.CreateGraphics
        Dim angle As Long
        Dim rotat As New System.Drawing.Drawing2D.Matrix
        angle = 180
        rotat.RotateAt(angle, New PointF(PictureBox1.Width / 2, PictureBox1.Height / 2))
        pcgr1.Transform = rotat
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        pcgr1.DrawRectangle(New Pen(Color.Blue, 3), 50, 5, 30, 100)
        pcgr2.DrawRectangle(New Pen(Color.Blue, 3), 50, 5, 30, 100)
    End Sub

 Graph1.FillRectangle(Brush1, x, y, w, h)

 Graph1.FillRectangle(Brush1, x, y-h, w, h)

Brush1.Color = Color.Red
        Graph1.FillRectangle(Brush1, 40, a, 40, 160)
 
        Brush1.Color = Color.Lime
        Graph1.FillRectangle(Brush1, 120, b, 40, 160)
 
        Brush1.Color = Color.Yellow
        Graph1.FillRectangle(Brush1, 200, c, 40, 160)
 
        Brush1.Color = Color.Blue
        Graph1.FillRectangle(Brush1, 280, d, 40, 160)

Brush1.Color = Color.Red
        Graph1.FillRectangle(Brush1, 40, 160-a, 40, а)
 
        Brush1.Color = Color.Lime
        Graph1.FillRectangle(Brush1, 120, 160-b, 40, b)
 
        Brush1.Color = Color.Yellow
        Graph1.FillRectangle(Brush1, 200, 160-c, 40, с)
 
        Brush1.Color = Color.Blue
        Graph1.FillRectangle(Brush1, 280, 160-d, 40, d)

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Asli.Show()
        Close()
    End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Asli.Show()
        Close()
    End Sub