Public Class Form1
Dim text1 As New TextBox
Dim text2 As New TextBox
Dim WithEvents btn As New Button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'text3(i) = New TextBox
text1.Visible = True
text1.Location = New Point(20, 20)
text1.Size = New Size(150, 15)
Me.Controls.Add(text1)
text2.Visible = True
text2.Location = New Point(20, 40)
text2.Size = New Size(150, 15)
Me.Controls.Add(text2)
btn.Visible = True
btn.Location = New Point(20, 70)
btn.Size = New Size(150, 40)
btn.Text = "Click"
Me.Controls.Add(btn)
End Sub
Private Sub btn_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
MsgBox("Hi")
Dim a As Integer
Try
a = CInt(text1.Text) \ CInt(text2.Text)
MsgBox("Result " & a)
Catch ex As DivideByZeroException
MsgBox(ex.Message)
End Try
End Sub
End Class