Basit hesap Makinesi yapımı

Public Class Form1
    Dim s2 As Integer
    Dim s1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'visualbasicdersleri.com
        s1 = TextBox1.Text
        s2 = TextBox2.Text
        MsgBox("toplama işleminin sonucu " & s1 + s2)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        s1 = TextBox1.Text
        s2 = TextBox2.Text
        MsgBox("çıkarma işleminin sonucu " & s1 - s2)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        s1 = TextBox1.Text
        s2 = TextBox2.Text
        MsgBox("bölme işleminin sonucu " & s1 / s2)
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        s1 = TextBox1.Text 'visualbasicdersleri.com
        s2 = TextBox2.Text
        MsgBox("çarpma işleminin sonucu " & s1 * s2)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Hoş Geldiniz.VisualBasicdersleri.com")
    End Sub
End Class