Dim a As Integer
    Dim b As Integer
    Dim c As Double
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        c = a + b
        TextBox3.Text = c
    End Sub