Public Class Form1

    Private Sub bAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bAdd.Click
        '//// Add two numbers
        ' Add # in tA AND tB, putting results in lResult
        ' -- lResult.Text = tA.Text + tB.Text

        'INIT, DECLARATIONS, etc.
        Dim a As Integer    ' First input value
        Dim b As Integer
        Dim r As Integer    ' Result value
        'INPUT:   Get two #s from tA, tB
        a = Me.tA.Text
        b = Me.tA.Text
        'PROCESS: Addd  them up
        r = a + b
        'OUTPUT:  Put the result in lResult
        Me.lresult.Text = Format(r)


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class