document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Private Sub Command1_Click()
  2.     Dim a, b As Integer
  3.     a = txt1.Text
  4.     b = txt2.Text
  5.     txt3.Text = a + b
  6.     txt4.Text = a / b
  7.     txt5.Text = a - b
  8.     txt6.Text = a * b
  9.     txt7.Text = a ^ b
  10.  End Sub
  11.  
  12.  Private Sub Command2_Click()
  13.     txt1.Text = ""
  14.     txt2.Text = ""
  15.     txt3.Text = ""
  16.     txt4.Text = ""
  17.     txt5.Text = ""
  18.     txt6.Text = ""
  19.     txt7.Text = ""
  20.  End Sub
  21.  
  22.  Private Sub Command3_Click()
  23.     End
  24.  End Sub
');