1. Pertama buat form dengan nama `frmKalkulator
  2. Kemudian tambahkan 3 Label, 3 Textbox, 5 Button dan diberi nama seperti gambar dibawah ini.
  3. Codingan yang terdapat didalamnya :
    
    Public Class frmKalkulator
        Private Sub bTambah_Click(sender As Object, e As EventArgs) Handles bTambah.Click
            txtHasil.Text = Val(txtAngka1.Text) + Val(txtAngka2.Text)
        End Sub
    
        Private Sub bKurang_Click(sender As Object, e As EventArgs) Handles bKurang.Click
            txtHasil.Text = Val(txtAngka1.Text) - Val(txtAngka2.Text)
        End Sub
    
        Private Sub bKali_Click(sender As Object, e As EventArgs) Handles bKali.Click
            txtHasil.Text = Val(txtAngka1.Text) * Val(txtAngka2.Text)
        End Sub
    
        Private Sub bBagi_Click(sender As Object, e As EventArgs) Handles bBagi.Click
            txtHasil.Text = Val(txtAngka1.Text) / Val(txtAngka2.Text)
        End Sub
    
        Private Sub bClear_Click(sender As Object, e As EventArgs) Handles bClear.Click
            txtAngka1.Text = ""
            txtAngka2.Text = ""
            txtHasil.Text = ""
        End Sub
    
        Private Sub txtAngka1_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAngka2.KeyDown, txtAngka1.KeyDown
            If e.KeyCode = Keys.Enter Then
                SelectNextControl(sender, True, True, True, True)
            End If
        End Sub
    End Class