[مشروع] تصميم برنامج تعلميمي حول المقارنة بين الكسور

PHP كود :
For Each pb In Me.Controls.OfType(Of PictureBox)().ToArray()
            pb.Dispose()
        Next
        Button2.Text = ""
        ' horizontal
        car = New PictureBox()
        Controls.Add(car)
        car.Size = New Size(400, 10)
        car.Location = New Point(60, 490)
        car.BackColor = Color.Black
        ' vertical
        car = New PictureBox()
        Controls.Add(car)
        car.Size = New Size(10, 400)
        car.Location = New Point(255, 90)
        car.BackColor = Color.Black


        ' kser 1
        'baset
        bast1 = Baset1.Value
        ' makam
        makm1 = Makam1.Value
        ' nebat tol ila amoud
        Dim MaxTol = PictureBox2.Height
        Dim rep = MaxTol / makm1

        If bast1 > makm1 Then
            MessageBox.Show("يجب ان يكون المقام اكبر او يساوي البسط", "عبد الهادي بهاب", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Makam1.Focus()
        Else

            ' creer baset
            For p = 1 To bast1
                car = New PictureBox()
                Controls.Add(car)
                car.Size = New Size(140, rep)
                car.Location = New Point(PictureBox1.Left + 20, PictureBox1.Top - rep * p)
                car.BackColor = Color.Blue
                car.BorderStyle = BorderStyle.FixedSingle
            Next
            ' draw rectange makam
            For i = 1 To makm1
                car = New PictureBox()
                Controls.Add(car)
                car.Size = New Size(140, rep)
                car.Location = New Point(PictureBox1.Left + 20, PictureBox1.Top - rep * i)
                car.BackColor = Color.Orange
                car.BorderStyle = BorderStyle.FixedSingle
            Next



            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            '''''''''''''''''''' 2 fraction "''''''''''''''''''''''''''''''''''''''''''''''''''''''

            bast2 = Baset2.Value
            '__________________________'
            makm2 = Makam2.Value

            If bast1 > makm1 Then
                MessageBox.Show("يجب ان يكون المقام اكبر او يساوي البسط", "عبد الهادي بهاب", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Makam2.Focus()
            Else


                Dim rep2 = MaxTol / makm2
                ' creer baset
                For p = 1 To bast2
                    car = New PictureBox()
                    Controls.Add(car)
                    car.Size = New Size(140, rep2)
                    car.Location = New Point(PictureBox2.Left + 40, PictureBox1.Top - rep2 * p)
                    car.BackColor = Color.Green
                    car.BorderStyle = BorderStyle.FixedSingle
                Next
                ' draw rectange makam
                For i = 1 To makm2
                    car = New PictureBox()
                    Controls.Add(car)
                    car.Size = New Size(140, rep2)
                    car.Location = New Point(PictureBox2.Left + 40, PictureBox1.Top - rep2 * i)
                    car.BackColor = Color.Yellow
                    car.BorderStyle = BorderStyle.FixedSingle
                Next

                If bast1 * makm2 = bast2 * makm1 Then
                    Button2.Text = "="
                ElseIf bast1 * makm2 > bast2 * makm1 Then
                    Button2.Text = ">"
                ElseIf bast1 * makm2 < bast2 * makm1 Then
                    Button2.Text = "<"
                End If

                '''''''''''''''''''''''''''''''''''''''''''''''''
                '''''''''''''''''''''''''''''''''''''''''''''''''
            End If
        End If