VERSION 5.00
Object = "{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0"; "MSSCRIPT.OCX"
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   4815
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5445
   LinkTopic       =   "Form2"
   ScaleHeight     =   4815
   ScaleWidth      =   5445
   StartUpPosition =   3  'Windows Default
   Begin MSScriptControlCtl.ScriptControl ScriptControl1 
      Left            =   1680
      Top             =   4125
      _ExtentX        =   1005
      _ExtentY        =   1005
      AllowUI         =   -1  'True
   End
   Begin VB.TextBox FormulaTxt 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   765
      Left            =   180
      MaxLength       =   100
      MultiLine       =   -1  'True
      TabIndex        =   23
      Top             =   465
      Width           =   4815
   End
   Begin VB.CommandButton CubicFeet 
      BackColor       =   &H00FFC0C0&
      Caption         =   "Cubic Feet"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   195
      Style           =   1  'Graphical
      TabIndex        =   22
      Top             =   1290
      Width           =   1545
   End
   Begin VB.CommandButton CubicYards 
      BackColor       =   &H00FFC0C0&
      Caption         =   "Cubic Yards"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   1980
      Style           =   1  'Graphical
      TabIndex        =   21
      Top             =   1290
      Width           =   1545
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H00FFC0C0&
      Caption         =   "Square Feet"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   1980
      Style           =   1  'Graphical
      TabIndex        =   20
      Top             =   1800
      Width           =   1545
   End
   Begin VB.CommandButton Command4 
      BackColor       =   &H00FFC0C0&
      Caption         =   "Square Yards"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   195
      Style           =   1  'Graphical
      TabIndex        =   19
      Top             =   1800
      Width           =   1545
   End
   Begin VB.CommandButton Command5 
      BackColor       =   &H00FFC0C0&
      Caption         =   "Thickness"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   180
      Style           =   1  'Graphical
      TabIndex        =   18
      Top             =   2310
      Width           =   1545
   End
   Begin VB.CommandButton Command6 
      BackColor       =   &H00FFC0C0&
      Caption         =   "+"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   3630
      Style           =   1  'Graphical
      TabIndex        =   17
      Top             =   1305
      Width           =   465
   End
   Begin VB.CommandButton Command7 
      BackColor       =   &H00FFC0C0&
      Caption         =   "-"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   4215
      Style           =   1  'Graphical
      TabIndex        =   16
      Top             =   1305
      Width           =   465
   End
   Begin VB.CommandButton Command8 
      BackColor       =   &H00FFC0C0&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   3630
      Style           =   1  'Graphical
      TabIndex        =   15
      Top             =   1800
      Width           =   465
   End
   Begin VB.CommandButton Command9 
      BackColor       =   &H00FFC0C0&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   4215
      Style           =   1  'Graphical
      TabIndex        =   14
      Top             =   1800
      Width           =   465
   End
   Begin VB.CommandButton Command10 
      BackColor       =   &H00FFC0C0&
      Caption         =   "("
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   3630
      Style           =   1  'Graphical
      TabIndex        =   13
      Top             =   2325
      Width           =   465
   End
   Begin VB.CommandButton Command11 
      BackColor       =   &H00FFC0C0&
      Caption         =   ")"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   4155
      Style           =   1  'Graphical
      TabIndex        =   12
      Top             =   2325
      Width           =   465
   End
   Begin VB.CommandButton Command12 
      BackColor       =   &H00FFC0C0&
      Caption         =   "2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   1125
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   2865
      Width           =   465
   End
   Begin VB.CommandButton Command13 
      BackColor       =   &H00FFC0C0&
      Caption         =   "3"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   1620
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   2865
      Width           =   465
   End
   Begin VB.CommandButton Command14 
      BackColor       =   &H00FFC0C0&
      Caption         =   "1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   630
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   2865
      Width           =   465
   End
   Begin VB.CommandButton Command15 
      BackColor       =   &H00FFC0C0&
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   135
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   2865
      Width           =   465
   End
   Begin VB.CommandButton Command16 
      BackColor       =   &H00FFC0C0&
      Caption         =   "5"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   2610
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   2865
      Width           =   465
   End
   Begin VB.CommandButton Command17 
      BackColor       =   &H00FFC0C0&
      Caption         =   "4"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   2115
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   2865
      Width           =   465
   End
   Begin VB.CommandButton Command18 
      BackColor       =   &H00FFC0C0&
      Caption         =   "6"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   3090
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   2865
      Width           =   465
   End
   Begin VB.CommandButton Command19 
      BackColor       =   &H00FFC0C0&
      Caption         =   "7"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   3585
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   2865
      Width           =   465
   End
   Begin VB.CommandButton Command20 
      BackColor       =   &H00FFC0C0&
      Caption         =   "9"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   4575
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   2865
      Width           =   465
   End
   Begin VB.CommandButton Command21 
      BackColor       =   &H00FFC0C0&
      Caption         =   "8"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   4080
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   2865
      Width           =   465
   End
   Begin VB.CommandButton Command22 
      BackColor       =   &H00FFC0C0&
      Caption         =   "Pi"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   1965
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2355
      Width           =   1545
   End
   Begin VB.CommandButton Command23 
      Caption         =   "Test Formula"
      Height          =   360
      Left            =   1380
      TabIndex        =   0
      Top             =   3435
      Width           =   2490
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Formula Editor"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   285
      TabIndex        =   24
      Top             =   150
      Width           =   2085
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H000000FF&
      BackStyle       =   1  'Opaque
      BorderWidth     =   4
      Height          =   4020
      Left            =   0
      Shape           =   4  'Rounded Rectangle
      Top             =   0
      Width           =   5160
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
FormulaTxt = FormulaTxt + "BinderThickness "

End Sub

Private Sub Command10_Click()
FormulaTxt = FormulaTxt + "("
End Sub

Private Sub Command11_Click()
FormulaTxt = FormulaTxt + ")"
End Sub

Private Sub Command12_Click()
FormulaTxt = FormulaTxt + "2"
End Sub

Private Sub Command13_Click()
FormulaTxt = FormulaTxt + "3"
End Sub

Private Sub Command14_Click()
FormulaTxt = FormulaTxt + "1"
End Sub

Private Sub Command15_Click()
FormulaTxt = FormulaTxt + "0"
End Sub

Private Sub Command16_Click()
FormulaTxt = FormulaTxt + "5"
End Sub

Private Sub Command17_Click()
FormulaTxt = FormulaTxt + "4"
End Sub

Private Sub Command18_Click()
FormulaTxt = FormulaTxt + "6"
End Sub

Private Sub Command19_Click()
FormulaTxt = FormulaTxt + "7"
End Sub

Private Sub Command20_Click()
FormulaTxt = FormulaTxt + "9"
End Sub

Private Sub Command21_Click()
FormulaTxt = FormulaTxt + "8"
End Sub

Private Sub Command22_Click()
FormulaTxt = FormulaTxt + "3.14159265358979323846264"
End Sub

Private Sub Command23_Click()


Dim CubicFeet As Integer
Dim CubicYards As Integer
Dim SquareFeet As Integer
Dim SquareYards As Integer
Dim Thickness As Integer


CubicFeet = 1000
CubicYards = 100
SquareFeet = 2000
SquareYards = 500
Thickness = 2


MsgBox ScriptControl1.Eval(FormulaTxt.Text)


'MsgBox TestVal, , "Test Formula"
End Sub

Private Sub Command3_Click()
FormulaTxt = FormulaTxt + "val(SquareFeet)"
End Sub

Private Sub Command4_Click()
FormulaTxt = FormulaTxt + "SquareYards"
End Sub

Private Sub Command5_Click()
FormulaTxt = FormulaTxt + "SurfaceThickness"
End Sub

Private Sub Command6_Click()
FormulaTxt = FormulaTxt + "+"
End Sub

Private Sub Command7_Click()
FormulaTxt = FormulaTxt + "-"
End Sub

Private Sub Command8_Click()
FormulaTxt = FormulaTxt + "*"
End Sub

Private Sub Command9_Click()
FormulaTxt = FormulaTxt + "/"
End Sub

Private Sub CubicFeet_Click()
FormulaTxt = FormulaTxt + "CubicFeet"
End Sub

Private Sub CubicYards_Click()
FormulaTxt = FormulaTxt + "CubicYards"
End Sub