Public choice As String

Private Sub about_Click()
frmabout.Show
End Sub

Private Sub Command1_Click()
If Text1.Visible = True Then
Text1.Text = Text1.Text & Command1.Caption
End If
If Text2.Visible = True Then
Text2.Text = Text2.Text & Command1.Caption
End If
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &HFF8080
Command2.BackColor = &H80000007
Command3.BackColor = &H80000007
Command4.BackColor = &H80000007
Command5.BackColor = &H80000007
Command6.BackColor = &H80000007
Command7.BackColor = &H80000007
Command8.BackColor = &H80000007
Command9.BackColor = &H80000007
Command10.BackColor = &H80000007
Command11.BackColor = &H80000007
Command12.BackColor = &H80000007
End Sub

Private Sub Command10_Click()
If Text1.Visible = True Then
Text1.Text = Text1.Text & Command10.Caption
End If
If Text2.Visible = True Then
Text2.Text = Text2.Text & Command10.Caption
End If
End Sub

Private Sub Command10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command10.BackColor = &HFF8080
Command1.BackColor = &H80000007
Command2.BackColor = &H80000007
Command3.BackColor = &H80000007
Command4.BackColor = &H80000007
Command5.BackColor = &H80000007
Command6.BackColor = &H80000007
Command7.BackColor = &H80000007
Command8.BackColor = &H80000007
Command9.BackColor = &H80000007
Command11.BackColor = &H80000007
Command12.BackColor = &H80000007
End Sub

Private Sub Command11_Click()
If Text1.Visible = True Then
Text1.Text = Text1.Text & Command11.Caption
End If
If Text2.Visible = True Then
Text2.Text = Text2.Text & Command11.Caption
End If
End Sub

Private Sub Command11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command11.BackColor = &HFF8080
Command1.BackColor = &H80000007
Command2.BackColor = &H80000007
Command3.BackColor = &H80000007
Command4.BackColor = &H80000007
Command5.BackColor = &H80000007
Command6.BackColor = &H80000007
Command7.BackColor = &H80000007
Command8.BackColor = &H80000007
Command9.BackColor = &H80000007
Command10.BackColor = &H80000007
Command12.BackColor = &H80000007
End Sub

Private Sub Command12_Click()
Text1.Visible = True
Text2.Visible = False
Text3.Visible = False
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
'resets everything
End Sub

Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command12.BackColor = &HFF8080
Command1.BackColor = &H80000007
Command2.BackColor = &H80000007
Command3.BackColor = &H80000007
Command4.BackColor = &H80000007
Command5.BackColor = &H80000007
Command6.BackColor = &H80000007
Command7.BackColor = &H80000007
Command8.BackColor = &H80000007
Command9.BackColor = &H80000007
Command10.BackColor = &H80000007
Command11.BackColor = &H80000007
End Sub

Private Sub Command13_Click()
Text1.Visible = False
Text2.Visible = True
'add button
choice = "plus"
End Sub


Private Sub Command13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Command13.BackColor = &HE0E0E0
Command14.BackColor = &H8000000F
Command15.BackColor = &H8000000F
Command16.BackColor = &H8000000F
Command17.BackColor = &H8000000F
End Sub

Private Sub Command14_Click()
Text1.Visible = False
'minus button
Text2.Visible = True
choice = "minus"
End Sub

Private Sub Command14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command14.BackColor = &HE0E0E0
Command13.BackColor = &H8000000F
Command15.BackColor = &H8000000F
Command16.BackColor = &H8000000F
Command17.BackColor = &H8000000F
End Sub

Private Sub Command15_Click()
Text1.Visible = False
'multiply button
Text2.Visible = True
choice = "multiply"
End Sub

Private Sub Command15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command15.BackColor = &HE0E0E0
Command13.BackColor = &H8000000F
Command14.BackColor = &H8000000F
Command16.BackColor = &H8000000F
Command17.BackColor = &H8000000F
End Sub

Private Sub Command16_Click()
Text1.Visible = False
'divide button
Text2.Visible = True
choice = "divide"
End Sub

Private Sub Command16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command16.BackColor = &HE0E0E0
Command13.BackColor = &H8000000F
Command14.BackColor = &H8000000F
Command15.BackColor = &H8000000F
Command17.BackColor = &H8000000F
End Sub

Private Sub Command17_Click()
On Error Resume Next
Text1.Visible = False
Text2.Visible = False
Text3.Visible = True
Text3.Enabled = True
If choice = "plus" Then
Text3 = Val(Text1) + Val(Text2)
End If
If choice = "minus" Then
Text3 = Text1 - Text2
End If
If choice = "multiply" Then
Text3 = Text1 * Text2
End If
If choice = "divide" Then
Text3 = Text1 / Text2
End If
End Sub


Private Sub Command17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command17.BackColor = &HE0E0E0
Command13.BackColor = &H8000000F
Command14.BackColor = &H8000000F
Command15.BackColor = &H8000000F
Command16.BackColor = &H8000000F
End Sub

Private Sub Command2_Click()
If Text1.Visible = True Then
Text1.Text = Text1.Text & Command2.Caption
End If
If Text2.Visible = True Then
Text2.Text = Text2.Text & Command2.Caption
End If
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.BackColor = &HFF8080
Command1.BackColor = &H80000007
Command3.BackColor = &H80000007
Command4.BackColor = &H80000007
Command5.BackColor = &H80000007
Command6.BackColor = &H80000007
Command7.BackColor = &H80000007
Command8.BackColor = &H80000007
Command9.BackColor = &H80000007
Command10.BackColor = &H80000007
Command11.BackColor = &H80000007
Command12.BackColor = &H80000007
End Sub

Private Sub Command3_Click()
If Text1.Visible = True Then
Text1.Text = Text1.Text & Command3.Caption
End If
If Text2.Visible = True Then
Text2.Text = Text2.Text & Command3.Caption
End If
End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.BackColor = &HFF8080
Command1.BackColor = &H80000007
Command2.BackColor = &H80000007
Command4.BackColor = &H80000007
Command5.BackColor = &H80000007
Command6.BackColor = &H80000007
Command7.BackColor = &H80000007
Command8.BackColor = &H80000007
Command9.BackColor = &H80000007
Command10.BackColor = &H80000007
Command11.BackColor = &H80000007
Command12.BackColor = &H80000007
End Sub

Private Sub Command4_Click()
If Text1.Visible = True Then
Text1.Text = Text1.Text & Command4.Caption
End If
If Text2.Visible = True Then
Text2.Text = Text2.Text & Command4.Caption
End If
End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command4.BackColor = &HFF8080
Command1.BackColor = &H80000007
Command2.BackColor = &H80000007
Command3.BackColor = &H80000007
Command5.BackColor = &H80000007
Command6.BackColor = &H80000007
Command7.BackColor = &H80000007
Command8.BackColor = &H80000007
Command9.BackColor = &H80000007
Command10.BackColor = &H80000007
Command11.BackColor = &H80000007
Command12.BackColor = &H80000007
End Sub

Private Sub Command5_Click()
If Text1.Visible = True Then
Text1.Text = Text1.Text & Command5.Caption
End If
If Text2.Visible = True Then
Text2.Text = Text2.Text & Command5.Caption
End If
End Sub

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command5.BackColor = &HFF8080
Command1.BackColor = &H80000007
Command2.BackColor = &H80000007
Command3.BackColor = &H80000007
Command4.BackColor = &H80000007
Command6.BackColor = &H80000007
Command7.BackColor = &H80000007
Command8.BackColor = &H80000007
Command9.BackColor = &H80000007
Command10.BackColor = &H80000007
Command11.BackColor = &H80000007
Command12.BackColor = &H80000007
End Sub

Private Sub Command6_Click()
If Text1.Visible = True Then
Text1.Text = Text1.Text & Command6.Caption
End If
If Text2.Visible = True Then
Text2.Text = Text2.Text & Command6.Caption
End If
End Sub

Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command6.BackColor = &HFF8080
Command1.BackColor = &H80000007
Command2.BackColor = &H80000007
Command3.BackColor = &H80000007
Command4.BackColor = &H80000007
Command5.BackColor = &H80000007
Command7.BackColor = &H80000007
Command8.BackColor = &H80000007
Command9.BackColor = &H80000007
Command10.BackColor = &H80000007
Command11.BackColor = &H80000007
Command12.BackColor = &H80000007
End Sub

Private Sub Command7_Click()
If Text1.Visible = True Then
Text1.Text = Text1.Text & Command7.Caption
End If
If Text2.Visible = True Then
Text2.Text = Text2.Text & Command7.Caption
End If
End Sub

Private Sub Command7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command7.BackColor = &HFF8080
Command1.BackColor = &H80000007
Command2.BackColor = &H80000007
Command3.BackColor = &H80000007
Command4.BackColor = &H80000007
Command5.BackColor = &H80000007
Command6.BackColor = &H80000007
Command8.BackColor = &H80000007
Command9.BackColor = &H80000007
Command10.BackColor = &H80000007
Command11.BackColor = &H80000007
Command12.BackColor = &H80000007
End Sub

Private Sub Command8_Click()
If Text1.Visible = True Then
Text1.Text = Text1.Text & Command8.Caption
End If
If Text2.Visible = True Then
Text2.Text = Text2.Text & Command8.Caption
End If
End Sub

Private Sub Command8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command8.BackColor = &HFF8080
Command1.BackColor = &H80000007
Command2.BackColor = &H80000007
Command3.BackColor = &H80000007
Command4.BackColor = &H80000007
Command5.BackColor = &H80000007
Command6.BackColor = &H80000007
Command7.BackColor = &H80000007
Command9.BackColor = &H80000007
Command10.BackColor = &H80000007
Command11.BackColor = &H80000007
Command12.BackColor = &H80000007
End Sub

Private Sub Command9_Click()
If Text1.Visible = True Then
Text1.Text = Text1.Text & Command9.Caption
End If
If Text2.Visible = True Then
Text2.Text = Text2.Text & Command9.Caption
End If
End Sub

Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command9.BackColor = &HFF8080
Command1.BackColor = &H80000007
Command2.BackColor = &H80000007
Command3.BackColor = &H80000007
Command4.BackColor = &H80000007
Command5.BackColor = &H80000007
Command6.BackColor = &H80000007
Command7.BackColor = &H80000007
Command8.BackColor = &H80000007
Command10.BackColor = &H80000007
Command11.BackColor = &H80000007
Command12.BackColor = &H80000007
End Sub

Private Sub end_Click()
Unload Me
End Sub

Private Sub Form_Load()
Text2.Visible = False
Text3.Visible = False
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H80000007
Command2.BackColor = &H80000007
Command3.BackColor = &H80000007
Command4.BackColor = &H80000007
Command5.BackColor = &H80000007
Command6.BackColor = &H80000007
Command7.BackColor = &H80000007
Command8.BackColor = &H80000007
Command9.BackColor = &H80000007
Command10.BackColor = &H80000007
Command11.BackColor = &H80000007
Command12.BackColor = &H80000007
Command13.BackColor = &H8000000F
Command14.BackColor = &H8000000F
Command15.BackColor = &H8000000F
Command16.BackColor = &H8000000F
Command17.BackColor = &H8000000F

End Sub

Private Sub Timer1_Timer()
If Me.Width > 4665 Then
Me.Width = 4665
End If
If Me.Height > 5415 Then
Me.Height = 5415
End If
End Sub