Графика. Перевод кода с 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

Private Sub Form2_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Form1.Show()
    End Sub

Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
    End Sub
    Private Sub btnShow_Click(sender As System.Object, e As System.EventArgs) Handles btnShow.Click
        Form2.ShowDialog(Me)
    End Sub
'…
End Class
 
Public Class Form2
    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
    End Sub
    Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If e.CloseReason = CloseReason.UserClosing Then
            'какая-то дополнительная обработка (по необходимости), например
            Dim result = MessageBox.Show("Закрыть форму?", "Внимание", MessageBoxButtons.YesNo, MessageBoxIcon.Question, _
                MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
            If (result = DialogResult.No) Then e.Cancel = True
        End If
    End Sub
'…
End Class