Program 6 Write a Vb.net program to add two TextBoxes, two Labels and one button at runtime. Accept two numbers in textboxes and handle DivideByZeroException.
Solution -

Step1 - Add new Windows Form, Provide Name P6.vb
Step2 - Double Click on Blank Area of form
Step3 - Put Following code in program P6.vb

Public Class p6
    Dim lblFirstNumber, lblSecondNumber As System.Windows.Forms.Label
    Dim txtFirstNumber As System.Windows.Forms.TextBox
    Dim txtSecondNumber As System.Windows.Forms.TextBox
    Friend WithEvents btnDevide As System.Windows.Forms.Button
    Private Sub p6_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lblFirstNumber = New Windows.Forms.Label()
        lblFirstNumber.Text = "Enter First Number"
        lblFirstNumber.Width = 150
        lblFirstNumber.Location = New Drawing.Point(50, 50)
        Me.Controls.Add(lblFirstNumber)

        txtFirstNumber = New Windows.Forms.TextBox()
        txtFirstNumber.Location = New Drawing.Point(200, 50)
        txtFirstNumber.Width = 150
        Me.Controls.Add(txtFirstNumber)

        lblSecondNumber = New Windows.Forms.Label()
        lblSecondNumber.Text = "Enter Second Number"
        lblSecondNumber.Width = 150
        lblSecondNumber.Location = New Drawing.Point(50, 100)
        Me.Controls.Add(lblSecondNumber)

        txtSecondNumber = New Windows.Forms.TextBox()
        txtSecondNumber.Location = New Drawing.Point(200, 100)
        txtSecondNumber.Width = 150
        Me.Controls.Add(txtSecondNumber)

        btnDevide = New Windows.Forms.Button()
        btnDevide.Text = "Devide"
        btnDevide.Width = 100
        btnDevide.Location = New Drawing.Point(150, 150)
        Me.Controls.Add(btnDevide)
    End Sub
    Private Sub btnDevide_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnDevide.Click
        Dim fno, sno, result As Integer
        fno = CInt(txtFirstNumber.Text)
        sno = CInt(txtSecondNumber.Text)
        Try
            result = fno / sno
        Catch ex As DivideByZeroException
            MsgBox("Please enter non zero value")
        End Try
        MsgBox("Result is " & result)
    End Sub

End Class

Step 4 Run Program