Kalkulator

Private Sub Command1_Click()

txthasil.Text = Val(txtbilanganpertama.Text) + Val(txtbilangankedua.Text)

End Sub

Private Sub Command2_Click()

txthasil.Text = Val(txtbilanganpertama.Text) - Val(txtbilangankedua.Text)

End Sub

Private Sub Command3_Click()

txthasil.Text = Val(txtbilanganpertama.Text) / Val(txtbilangankedua.Text)

End Sub

Private Sub Command4_Click()

txthasil.Text = Val(txtbilanganpertama.Text) * Val(txtbilangankedua.Text)

End Sub

Private Sub Command5_Click()

txtbilanganpertama.Text = ""

txtbilangankedua.Text = ""

txthasil.Text = ""

End Sub

Private Sub Command6_Click()

Unload Me

End Sub