
Public Class Form5
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim Number1 As Integer
Number1 = TextBox1.Text
Dim Number2 As Integer
Number2 = TextBox2.Text
If CheckBox1.Checked = True Then
TextBox3.Text = (Number1 + Number2)
End If
If CheckBox2.Checked = True Then
TextBox3.Text = (Number1 - Number2)
End If
If CheckBox3.Checked = True Then
TextBox3.Text = (Number1 / Number2)
End If
If CheckBox4.Checked = True Then
TextBox3.Text = (Number1 * Number2)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
End Sub
Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
Clipboard.SetDataObject(TextBox3.Text)
End Sub
Private Sub ClearToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearToolStripMenuItem.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
End Sub
Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
TextBox3.Text = Clipboard.GetDataObject().GetData(DataFormats.Text)
End Sub
End Class