VERSION 5.00
Begin VB.Form calculator 
   BackColor       =   &H000040C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "calculator"
   ClientHeight    =   4035
   ClientLeft      =   9165
   ClientTop       =   3915
   ClientWidth     =   6060
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   9.75
      Charset         =   178
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "calculator.frx":0000
   ScaleHeight     =   4035
   ScaleWidth      =   6060
   Begin VB.Timer Timer6 
      Interval        =   200
      Left            =   1080
      Top             =   5520
   End
   Begin VB.Timer Timer5 
      Interval        =   200
      Left            =   600
      Top             =   5520
   End
   Begin VB.Timer Timer4 
      Interval        =   200
      Left            =   1080
      Top             =   5040
   End
   Begin VB.Timer Timer3 
      Interval        =   200
      Left            =   600
      Top             =   5040
   End
   Begin VB.Timer Timer2 
      Interval        =   200
      Left            =   600
      Top             =   4560
   End
   Begin VB.Timer Timer1 
      Interval        =   200
      Left            =   1080
      Top             =   4560
   End
   Begin VB.CommandButton cmdce 
      Caption         =   "ce"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2640
      TabIndex        =   8
      Top             =   840
      Width           =   735
   End
   Begin VB.CommandButton cmdc 
      Caption         =   "c"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1800
      TabIndex        =   7
      Top             =   840
      Width           =   735
   End
   Begin VB.CommandButton cmdbks 
      Caption         =   "bks"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   960
      TabIndex        =   6
      Top             =   840
      Width           =   735
   End
   Begin VB.CommandButton cmdmr 
      Caption         =   "Mr"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   5
      Top             =   3240
      Width           =   735
   End
   Begin VB.CommandButton cmdmp 
      Caption         =   "M+"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   4
      Top             =   1440
      Width           =   735
   End
   Begin VB.CommandButton cmdms 
      Caption         =   "MS"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   2040
      Width           =   735
   End
   Begin VB.CommandButton cmdmc 
      Caption         =   "MC"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   2640
      Width           =   735
   End
   Begin VB.Label Label30 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Log"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18.75
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   5160
      TabIndex        =   35
      Top             =   840
      Width           =   750
   End
   Begin VB.Label Label25 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "sqrt"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18.75
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   5160
      TabIndex        =   34
      Top             =   1440
      Width           =   750
   End
   Begin VB.Label Label24 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "x^2"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18.75
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   5160
      TabIndex        =   33
      Top             =   2040
      Width           =   750
   End
   Begin VB.Label Label23 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "x^y"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18.75
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   5160
      TabIndex        =   32
      Top             =   2640
      Width           =   750
   End
   Begin VB.Label Label22 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "x/1"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18.75
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   5160
      TabIndex        =   31
      Top             =   3240
      Width           =   750
   End
   Begin VB.Label Label29 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "sin"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18.75
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   4320
      TabIndex        =   30
      Top             =   1440
      Width           =   750
   End
   Begin VB.Label Label28 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "cos"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18.75
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   4320
      TabIndex        =   29
      Top             =   2040
      Width           =   750
   End
   Begin VB.Label Label27 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "tan"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18.75
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   4320
      TabIndex        =   28
      Top             =   2640
      Width           =   750
   End
   Begin VB.Label Label26 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "cot"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18.75
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   4335
      TabIndex        =   27
      Top             =   3240
      Width           =   750
   End
   Begin VB.Label Label21 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Pi"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18.75
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   4320
      TabIndex        =   26
      Top             =   840
      Width           =   750
   End
   Begin VB.Label Label20 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "+/-"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   2640
      TabIndex        =   25
      Top             =   3240
      Width           =   750
   End
   Begin VB.Label Label19 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "="
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   21.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   3480
      TabIndex        =   24
      Top             =   3240
      Width           =   750
   End
   Begin VB.Label Label18 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "+"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   21.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   3480
      TabIndex        =   23
      Top             =   1440
      Width           =   750
   End
   Begin VB.Label Label17 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   21.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   3480
      TabIndex        =   22
      Top             =   2040
      Width           =   750
   End
   Begin VB.Label Label16 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "-"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   21.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   3480
      TabIndex        =   21
      Top             =   2640
      Width           =   750
   End
   Begin VB.Label Label15 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   21.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3480
      TabIndex        =   20
      Top             =   840
      Width           =   750
   End
   Begin VB.Label Label14 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   960
      TabIndex        =   19
      Top             =   3240
      Width           =   750
   End
   Begin VB.Label Label13 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   1800
      TabIndex        =   18
      Top             =   3240
      Width           =   750
   End
   Begin VB.Label Label12 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "4"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   960
      TabIndex        =   17
      Top             =   2040
      Width           =   750
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "5"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   1800
      TabIndex        =   16
      Top             =   2040
      Width           =   750
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "6"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   2640
      TabIndex        =   15
      Top             =   2040
      Width           =   750
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "7"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   960
      TabIndex        =   14
      Top             =   1440
      Width           =   735
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "8"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   1800
      TabIndex        =   13
      Top             =   1440
      Width           =   750
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "9"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   2640
      TabIndex        =   12
      Top             =   1440
      Width           =   750
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "3"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   2640
      TabIndex        =   11
      Top             =   2640
      Width           =   750
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "2"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   1800
      TabIndex        =   10
      Top             =   2640
      Width           =   750
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "1"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   945
      TabIndex        =   9
      Top             =   2640
      Width           =   750
   End
   Begin VB.Label lblm 
      Alignment       =   2  'Center
      BackColor       =   &H0080FFFF&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   120
      TabIndex        =   2
      Top             =   840
      Width           =   765
   End
   Begin VB.Label lbloutput 
      Alignment       =   1  'Right Justify
      Appearance      =   0  'Flat
      BackColor       =   &H0000FF00&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   165
      TabIndex        =   0
      Top             =   240
      Width           =   5640
   End
End
Attribute VB_Name = "calculator"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim blnpoint As Boolean
Dim op As String * 1, strlastinput As String
Dim n1 As Double
Dim dblm As Double
Dim dblpi As Double

Private Function calc(a As Double, b As Double, op As String) As Double
Select Case op
Case "*"
calc = a * b
Case "-"
calc = a - b
Case "+"
calc = a + b
Case "^"
If a < 0 And b - Fix(b) <> 0 Then
MsgBox "invalid input function", vbCritical, "error"
Else
calc = a ^ b
End If
Case "/"
If b = 0 Then
MsgBox "cannot division by zero", vbCritical, "error"
Else
calc = a / b
End If
Case " "
calc = b
End Select
End Function

Private Sub Check1_Click()
If Check1.Value = 1 Then
Picture1.Visible = True
End If
If Check1.Value = 0 Then
Picture1.Visible = False
End If
End Sub

Private Sub cmd_Click()
calculator.Width = 10890
End Sub

Private Sub cmd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label22.BackColor = vbWhite
End Sub

Private Sub cmdb_Click()
Dim l As Byte
l = Len(Text1.Text)
If l > 0 Then
Text1.Text = Left(Text1.Text, l - 1)
End If
If Val(Text1.Text) = 0 Then
blnpoint = False
End If
strlastinput = " "
End Sub

Private Sub cmdbks_Click()
Dim l As Byte
l = Len(lbloutput)
If l > 0 Then
lbloutput = Left(lbloutput, l - 1)
End If
If Val(lbloutput) = 0 Then
blnpoint = False
End If
strlastinput = " "
End Sub

Private Sub cmdbks_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.BackColor = vbWhite
Label9.BackColor = vbWhite
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub cmdc_Click()
n1 = 1
op = " "
lbloutput = "0."
strlastinput = " "
blnpoint = False
End Sub

Private Sub cmdc_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.BackColor = vbWhite
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub cmdce_Click()
lbloutput = "0."
strlastinput = "op"
blnpoint = False
End Sub

Private Sub cmdce_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.BackColor = vbWhite
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub cmdcmdms_Click()
dblm = Val(lbloutput)
lblm = "M"
strlastinput = "op"
blnpoint = False
End Sub

Private Sub cmdlog_Click()

End Sub

Private Sub cmdcmdms_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label9.BackColor = vbWhite
Label12.BackColor = vbWhite
Label4.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub cmdmc_Click()
dblm = 0
lblm = " "
strlastinput = " "
End Sub

Private Sub cmdmc_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label9.BackColor = vbWhite
Label12.BackColor = vbWhite
Label4.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub cmdmp_Click()
dblm = dblm + Val(lbloutput)
lblm = "M"
strlastinput = "op"
End Sub

Private Sub cmdmp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label9.BackColor = vbWhite
Label12.BackColor = vbWhite
Label4.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub cmdmr_Click()
lblm = IIf(dbim = 0, "0.", dblm)
strlastinput = "nums"
If InStr(lbloutput, ".") <> 0 Then blnpoint = True
End Sub

Private Sub cmdpower2_Click()

End Sub

Private Sub cmdpwerxy_Click()

End Sub

Private Sub cmdreverse_Click()

End Sub

Private Sub cmdsqrt_Click()

End Sub

Private Sub cmdmr_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label9.BackColor = vbWhite
Label12.BackColor = vbWhite
Label4.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Form_Load()
n1 = 1
op = " "
strlastinput = " "
blnpoint = False
dblpi = 4 * Atn(1)
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbloutput.ForeColor = vbBlack
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
lbloutput.FontUnderline = False
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label20.BackColor = vbWhite
Label21.BackColor = vbWhite
Label26.BackColor = vbWhite
Label27.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label20.BackColor = vbWhite
lbloutput.ForeColor = vbBlack
End Sub

Private Sub Label10_Click()
If Len(lbloutput) = 20 Then Exit Sub
If strlastinput <> "nums" Then
lbloutput = IIf(blnpoint, lbloutput + "6", "6")
Else
lbloutput = lbloutput + "6"
End If
strlastinput = "nums"
End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label10.BackColor = vbYellow
End Sub

Private Sub Label11_Click()
If Len(lbloutput) = 20 Then Exit Sub
If strlastinput <> "nums" Then
lbloutput = IIf(blnpoint, lbloutput + "5", "5")
Else
lbloutput = lbloutput + "5"
End If
strlastinput = "nums"
End Sub

Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = vbWhite
Label11.BackColor = vbYellow
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label12_Click()
If Len(lbloutput) = 20 Then Exit Sub
If strlastinput <> "nums" Then
lbloutput = IIf(blnpoint, lbloutput + "4", "4")
Else
lbloutput = lbloutput + "4"
End If
strlastinput = "nums"
End Sub

Private Sub Label12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label12.BackColor = vbYellow
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub Label13_Click()
blnpoint = True
If strlastinput = "op" Then
lbloutput = "0."
Exit Sub
End If
If InStr(lbloutput, ".") = 0 Then
lbloutput = lbloutput + "."
End If
strlastinput = "nums"
End Sub

Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label13.BackColor = vbYellow
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label14.BackColor = vbWhite
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub Label14_Click()
If Len(lbloutput) = 20 Then Exit Sub
If strlastinput <> "nums" Then
lbloutput = IIf(blnpoint, lbloutput + "0", "0")
Else
lbloutput = lbloutput + "0"
End If
strlastinput = "nums"
End Sub

Private Sub Label14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label14.BackColor = vbYellow
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub Label15_Click()
If strlastinput = "nums" Then
n1 = calc(n1, Val(lbloutput), op)
lbloutput = n1
End If
n1 = Val(lbloutput)
op = "*"
strlastinput = "op"
blnpoint = False
lbloutput.Caption = "*"
End Sub

Private Sub Label15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label15.BackColor = RGB(255, 100, 0)
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label27.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub Label16_Click()
If strlastinput = "nums" Then
n1 = calc(n1, Val(lbloutput), op)
lbloutput = n1
End If
n1 = Val(lbloutput)
op = "-"
strlastinput = "op"
blnpoint = False
lbloutput.Caption = "-"
End Sub

Private Sub Label16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label16.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label17.BackColor = vbWhite
Label27.BackColor = vbWhite
Label20.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub Label17_Click()
If strlastinput = "nums" Then
n1 = calc(n1, Val(lbloutput), op)
lbloutput = n1
End If
n1 = Val(lbloutput)
op = "/"
strlastinput = "op"
blnpoint = False
lbloutput.Caption = "/"
End Sub

Private Sub Label17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label17.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label18.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label19.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub Label18_Click()
If strlastinput = "nums" Then
n1 = calc(n1, Val(lbloutput), op)
lbloutput = n1
End If
n1 = Val(lbloutput)
op = "+"
strlastinput = "op"
blnpoint = False
lbloutput.Caption = "+"
End Sub

Private Sub Label18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label18.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub Label19_Click()
n1 = calc(n1, Val(lbloutput), op)
If n1 = 0 Then
lbloutput = "0."
Else
lbloutput = n1
End If
op = " "
strlastinput = "op"
blnpoint = False

End Sub

Private Sub Label19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label19.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label20.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label17.BackColor = vbWhite
Label27.BackColor = vbWhite
Label18.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.FontSize = 28
Label1.FontSize = 22
Label1.Left = 2160
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label20.BackColor = vbWhite
lbloutput.ForeColor = vbBlack
End Sub

Private Sub Label20_Click()
If lbloutput = "0." And blnpoint = False Then
Exit Sub
End If
If lbloutput = "0." Then
lbloutput = "0."
Else
lbloutput = -Val(lbloutput)
End If
End Sub

Private Sub Label20_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label20.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label27.BackColor = vbWhite
Label18.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label22_Click()
Dim dbln As Double
dbln = Val(lbloutput)
If dbln = 0 Then
MsgBox "cannot division by zero", vbCritical, "error"
Exit Sub
End If
lbloutput = 1 / dbln
If Val(lbloutput) < 0.00000000000001 Then lbloutput = "0."
strlastinput = "op"
End Sub

Private Sub Label22_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label22.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label20.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label27.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label21_Click()
lbloutput = dblpi
strlastinput = "nums"
End Sub

Private Sub Label21_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label21.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label27.BackColor = vbWhite
Label19.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label23_Click()
If strlastinput = "nums" Then
n1 = calc(n1, Val(lbloutput), op)
lbloutput = n1
End If
n1 = Val(lbloutput)
op = "^"
strlastinput = "op"
blnpoint = False
End Sub

Private Sub Label23_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label23.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label27.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label24_Click()
Dim dbln As Double
dbln = Val(lbloutput)
lbloutput = dbln ^ 2
If Val(lbloutput) < 1E-16 Then lbloutput = "0."
If Val(lbloutput) > 1E+16 Then MsgBox "invalid input function", vbCritical, "error"
strlastinput = "op"
End Sub

Private Sub Label24_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label24.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label27.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label25_Click()
Dim dbln As Double
dbln = Val(lbloutput)
If dbln < 0 Then
MsgBox "invalid input function", vbCritical, "error"
Exit Sub
End If
lbloutput = Sqr(dbln)
If Val(lbloutput) < 1E-16 Then lbloutput = "0."
If Val(lbloutput) > 1E+16 Then MsgBox "invalid input function", vbCritical, "error"
strlastinput = "op"
End Sub

Private Sub Label25_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label25.BackColor = RGB(255, 100, 0)
Label20.BackColor = vbWhite
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label26.BackColor = vbWhite
Label27.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label26_Click()
Dim dblr As Double
dblr = Val(lbloutput) / 180 * dblpi
If dblr = 0 Then
MsgBox "cannot division by zero", vbCritical, "error"
Exit Sub
End If
lbloupt = 1 / Tan(dblr)
If Val(lbloutput) < 1E-16 Then lbloutput = "0."
If Val(lbloutput) > 1E+16 Then MsgBox "invalid input function", vbCritical, "error"
strlastinput = "nums"
End Sub

Private Sub Label26_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label26.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label27.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub Label27_Click()
Dim dblr As Double
dblr = Val(lbloutput) / 180 * dblpi
lbloutput = Tan(dblr)
If Val(lbloutput) < 1E-16 Then lbloutput = "0."
If Val(lbloutput) > 1E+16 Then MsgBox "invalid input function", vbCritical, "error"
strlastinput = "nums"
End Sub

Private Sub Label27_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label27.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label20.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label28_Click()
Dim dblr As Double
dblr = Val(lbloutput) / 180 * dblpi
lbloutput = Cos(dblr)
If Val(lbloutput) < 1E-16 Then lbloutput = "0."
strlastinput = "nums"
End Sub

Private Sub Label28_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label28.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label20.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label27.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label29_Click()
Dim dblr As Double
dblr = Val(lbloutput) / 180 * dblpi
lbloutput = Sin(dblr)
If Val(lbloutput) < 1E-16 Then lbloutput = "0."
strlastinput = "nums"
End Sub

Private Sub Label29_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label29.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label30.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = vbWhite
Label3.FontSize = 22
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label20.BackColor = vbWhite
Label26.BackColor = vbWhite
Label22.BackColor = vbWhite
lbloutput.ForeColor = vbBlack
End Sub

Private Sub Label30_Click()
Dim dbln As Double
dbln = Val(lbloutput)
If dbln <= 0 Then
MsgBox "invalid input function", vbCritical, "error"
Exit Sub
End If
lbloutput = Log(dbln) / Log(10)
If Val(lbloutput) < 1E-16 Then lbloutput = "0."
If Val(lbloutput) > 1E+16 Then MsgBox "invalid input function", vbCritical, "error"
strlastinput = "op"
End Sub

Private Sub Label30_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label30.BackColor = RGB(255, 100, 0)
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label27.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label4_Click()
If Len(lbloutput) = 20 Then Exit Sub
If strlastinput <> "nums" Then
lbloutput = IIf(blnpoint, lbloutput + "1", "1")
Else
lbloutput = lbloutput + "1"
End If
strlastinput = "nums"
End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = vbYellow
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub Label5_Click()
If Len(lbloutput) = 20 Then Exit Sub
If strlastinput <> "nums" Then
lbloutput = IIf(blnpoint, lbloutput + "2", "2")
Else
lbloutput = lbloutput + "2"
End If
strlastinput = "nums"
End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.BackColor = vbYellow
Label4.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label55_Click()

End Sub

Private Sub Label50_Click()

End Sub

Private Sub Label6_Click()
If Len(lbloutput) = 20 Then Exit Sub
If strlastinput <> "nums" Then
lbloutput = IIf(blnpoint, lbloutput + "3", "3")
Else
lbloutput = lbloutput + "3"
End If
strlastinput = "nums"
End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.BackColor = vbYellow
Label5.BackColor = vbWhite
Label4.BackColor = vbWhite
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
End Sub

Private Sub Label7_Click()
If Len(lbloutput) = 20 Then Exit Sub
If strlastinput <> "nums" Then
lbloutput = IIf(blnpoint, lbloutput + "9", "9")
Else
lbloutput = lbloutput + "9"
End If
strlastinput = "nums"
End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = vbWhite
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label8.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label7.BackColor = vbYellow
End Sub

Private Sub Label8_Click()
If Len(lbloutput) = 20 Then Exit Sub
If strlastinput <> "nums" Then
lbloutput = IIf(blnpoint, lbloutput + "8", "8")
Else
lbloutput = lbloutput + "8"
End If
strlastinput = "nums"
End Sub

Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label8.BackColor = vbYellow
End Sub

Private Sub Label9_Click()
If Len(lbloutput) = 20 Then Exit Sub
If strlastinput <> "nums" Then
lbloutput = IIf(blnpoint, lbloutput + "7", "7")
Else
lbloutput = lbloutput + "7"
End If
strlastinput = "nums"
End Sub

Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label9.BackColor = vbYellow
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbWhite
Label7.BackColor = vbWhite
Label8.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label15.BackColor = vbWhite
Label20.BackColor = vbWhite
Label27.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label19.BackColor = vbWhite
Label21.BackColor = vbWhite
Label22.BackColor = vbWhite
Label23.BackColor = vbWhite
Label24.BackColor = vbWhite
Label25.BackColor = vbWhite
Label26.BackColor = vbWhite
Label28.BackColor = vbWhite
Label29.BackColor = vbWhite
Label30.BackColor = vbWhite
End Sub

Private Sub lblaa_Click()
If strlastinput = "nums" Then
n1 = calc(n1, Val(Text1.Text), op)
Text1.Text = n1
End If
n1 = Val(Text1.Text)
op = "-"
strlastinput = "op"
blnpoint = False
Text1.Text = "-"
End Sub

Private Sub lblaaaaaa_Click()
If Len(Text1.Text) = 20 Then Exit Sub
If strlastinput <> "nums" Then
Text1.Text = IIf(blnpoint, Text1.Text + "0", "0")
Else
Text1.Text = Text1.Text + "0"
End If
strlastinput = "nums"
End Sub

Private Sub lblaaaaaa_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblaaaaaa.BackColor = vbGreen
lbla.BackColor = vbWhite
lblf.BackColor = vbWhite
lblg.BackColor = vbWhite
lblh.BackColor = vbWhite
lblj.BackColor = vbWhite
lblk.BackColor = vbWhite
lbll.BackColor = vbWhite
lblmm.BackColor = vbWhite
lblo.BackColor = vbWhite
lblq.BackColor = vbWhite
lblr.BackColor = vbWhite
lbls.BackColor = vbWhite
lblt.BackColor = vbWhite
lblu.BackColor = vbWhite
lblv.BackColor = vbWhite
lbly.BackColor = vbWhite
lblz.BackColor = vbWhite
lblaa.BackColor = vbWhite
lblaaa.BackColor = vbWhite
lblaaaa.BackColor = vbWhite
lblx.BackColor = vbWhite
lblaaaaaaa.BackColor = vbWhite
lblaaaaaaaa.BackColor = vbWhite
lblaaaaaaaaa.BackColor = vbWhite
lblaaaaaaaaaa.BackColor = vbWhite
lblaaaaaaaaaaaa.BackColor = vbWhite
End Sub

Private Sub lblaaaaaaa_Click()
If Len(Text1.Text) = 20 Then Exit Sub
If strlastinput <> "nums" Then
lbloutput = IIf(blnpoint, Text1.Text + "0", "0")
Else
Text1.Text = Text1.Text + "0"
End If
strlastinput = "nums"
End Sub

Private Sub lblaaaaaaaaa_Click()
n1 = calc(n1, Val(Text1.Text), op)
If n1 = 0 Then
Text1.Text = "0."
Else
Text1.Text = n1
End If
op = " "
strlastinput = "op"
blnpoint = False
End Sub

Private Sub lblf_Click()
If strlastinput = "nums" Then
n1 = calc(n1, Val(Text1.Text), op)
Text1.Text = n1
End If
n1 = Val(Text1.Text)
op = "*"
strlastinput = "op"
blnpoint = False
Text1.Text = "*"
End Sub

Private Sub lblj_Click()
If Len(Text1.Text) = 20 Then Exit Sub
If strlastinput <> "nums" Then
Text1.Text = IIf(blnpoint, Text1.Text + "7", "7")
Else
Text1.Text = Text1.Text + "7"
End If
strlastinput = "nums"
End Sub

Private Sub lblk_Click()
If Len(Text1.Text) = 20 Then Exit Sub
If strlastinput <> "nums" Then
Text1.Text = IIf(blnpoint, Text1.Text + "8", "8")
Else
Text1.Text = Text1.Text + "8"
End If
strlastinput = "nums"
End Sub

Private Sub lbll_Click()
If Len(Text1.Text) = 20 Then Exit Sub
If strlastinput <> "nums" Then
Text1.Text = IIf(blnpoint, Text1.Text + "9", "9")
Else
Text1.Text = Text1.Text + "9"
End If
strlastinput = "nums"
End Sub

Private Sub lblm_Click()
Label9.BackColor = vbWhite
End Sub

Private Sub lblm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.BackColor = vbWhite
End Sub

Private Sub lblmm_Click()
If strlastinput = "nums" Then
n1 = calc(n1, Val(Text1.Text), op)
Text1.Text = n1
End If
n1 = Val(Text1.Text)
op = "+"
strlastinput = "op"
blnpoint = False
Text1.Text = "+"
End Sub

Private Sub lbloutput_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbloutput.ForeColor = vbRed
If lbloutput.Caption = "0." Then
lbloutput.FontUnderline = False
Else
lbloutput.FontUnderline = True
End If
End Sub

Private Sub Picture1_Click()
Text1.BackColor = vbWhite
End Sub

Private Sub lblq_Click()
If Len(Text1.Text) = 20 Then Exit Sub
If strlastinput <> "nums" Then
Text1.Text = IIf(blnpoint, Text1.Text + "4", "4")
Else
Text1.Text = Text1.Text + "4"
End If
strlastinput = "nums"
End Sub

Private Sub lblr_Click()
If Len(Text1.Text) = 20 Then Exit Sub
If strlastinput <> "nums" Then
Text1.Text = IIf(blnpoint, Text1.Text + "5", "5")
Else
Text1.Text = Text1.Text + "5"
End If
strlastinput = "nums"
End Sub

Private Sub lbls_Click()
If Len(Text1.Text) = 20 Then Exit Sub
If strlastinput <> "nums" Then
Text1.Text = IIf(blnpoint, Text1.Text + "6", "6")
Else
Text1.Text = Text1.Text + "6"
End If
strlastinput = "nums"
End Sub

Private Sub lblt_Click()
If strlastinput = "nums" Then
n1 = calc(n1, Val(Text1.Text), op)
Text1.Text = n1
End If
n1 = Val(Text1.Text)
op = "/"
strlastinput = "op"
blnpoint = False
Text1.Text = "/"
End Sub

Private Sub lblx_Click()
If Len(Text1.Text) = 20 Then Exit Sub
If strlastinput <> "nums" Then
Text1.Text = IIf(blnpoint, Text1.Text + "1", "1")
Else
Text1.Text = Text1.Text + "1"
End If
strlastinput = "nums"
End Sub

Private Sub lblx_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblx.BackColor = vbGreen
lbla.BackColor = vbWhite
lblf.BackColor = vbWhite
lblg.BackColor = vbWhite
lblh.BackColor = vbWhite
lblj.BackColor = vbWhite
lblk.BackColor = vbWhite
lbll.BackColor = vbWhite
lblmm.BackColor = vbWhite
lblo.BackColor = vbWhite
lblq.BackColor = vbWhite
lblr.BackColor = vbWhite
lbls.BackColor = vbWhite
lblt.BackColor = vbWhite
lblu.BackColor = vbWhite
lblv.BackColor = vbWhite
lbly.BackColor = vbWhite
lblz.BackColor = vbWhite
lblaa.BackColor = vbWhite
lblaaa.BackColor = vbWhite
lblaaaa.BackColor = vbWhite
lblaaaaaa.BackColor = vbWhite
lblaaaaaaa.BackColor = vbWhite
lblaaaaaaaa.BackColor = vbWhite
lblaaaaaaaaa.BackColor = vbWhite
lblaaaaaaaaaa.BackColor = vbWhite
lblaaaaaaaaaaaa.BackColor = vbWhite
End Sub

Private Sub lbly_Click()
If Len(Text1.Text) = 20 Then Exit Sub
If strlastinput <> "nums" Then
Text1.Text = IIf(blnpoint, Text1.Text + "2", "2")
Else
Text1.Text = Text1.Text + "2"
End If
strlastinput = "nums"
End Sub

Private Sub lbly_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbly.BackColor = vbGreen
lblf.BackColor = vbWhite
lblg.BackColor = vbWhite
lblh.BackColor = vbWhite
lblj.BackColor = vbWhite
lblk.BackColor = vbWhite
lbll.BackColor = vbWhite
lblmm.BackColor = vbWhite
lblo.BackColor = vbWhite
lblq.BackColor = vbWhite
lblr.BackColor = vbWhite
lbls.BackColor = vbWhite
lblt.BackColor = vbWhite
lblu.BackColor = vbWhite
lblv.BackColor = vbWhite
lblx.BackColor = vbWhite
lblz.BackColor = vbWhite
lblaa.BackColor = vbWhite
lblaaa.BackColor = vbWhite
lblaaaa.BackColor = vbWhite
lblaaaaaa.BackColor = vbWhite
lblaaaaaaa.BackColor = vbWhite
lblaaaaaaaa.BackColor = vbWhite
lblaaaaaaaaa.BackColor = vbWhite
lblaaaaaaaaaa.BackColor = vbWhite
lblaaaaaaaaaaaa.BackColor = vbWhite
End Sub

Private Sub lblz_Click()
If Len(Text1.Text) = 20 Then Exit Sub
If strlastinput <> "nums" Then
Text1.Text = IIf(blnpoint, Text1.Text + "3", "3")
Else
Text1.Text = Text1.Text + "3"
End If
strlastinput = "nums"
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BackColor = vbGreen
End Sub