VERSION 5.00
Begin VB.Form frmInven2
Caption = "Inventory"
ClientHeight = 5115
ClientLeft = 60
ClientTop = 345
ClientWidth = 7185
LinkTopic = "Form1"
ScaleHeight = 5115
ScaleWidth = 7185
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdClear
Caption = "Clear"
Height = 495
Left = 3600
TabIndex = 11
Top = 3720
Width = 1335
End
Begin VB.TextBox txtMsg
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 1560
TabIndex = 10
Top = 2640
Width = 2895
End
Begin VB.CommandButton cmdEnd
Caption = "End"
Height = 495
Left = 2400
TabIndex = 9
Top = 4440
Width = 1215
End
Begin VB.CommandButton cmdCalc
Caption = "Calculate"
Height = 495
Left = 1200
TabIndex = 8
Top = 3720
Width = 1215
End
Begin VB.TextBox txtOnOrder
Height = 375
Left = 4200
TabIndex = 7
Top = 1680
Width = 1455
End
Begin VB.TextBox txtOnHand
Height = 375
Left = 1320
TabIndex = 5
Top = 1680
Width = 1455
End
Begin VB.TextBox txtItemName
Height = 495
Left = 1320
TabIndex = 3
Top = 840
Width = 2895
End
Begin VB.TextBox txtItemNum
Height = 375
Left = 1320
TabIndex = 1
Top = 240
Width = 1455
End
Begin VB.Label lblOnOrder
Caption = "On Order:"
Height = 375
Left = 3240
TabIndex = 6
Top = 1680
Width = 735
End
Begin VB.Label lblOnHand
Caption = "On Hand:"
Height = 375
Left = 240
TabIndex = 4
Top = 1680
Width = 735
End
Begin VB.Label lblItemName
Caption = "Item Name:"
Height = 375
Left = 240
TabIndex = 2
Top = 960
Width = 855
End
Begin VB.Label lblItemNum
Caption = "Item Number:"
Height = 495
Left = 240
TabIndex = 0
Top = 240
Width = 735
End
End
Attribute VB_Name = "frmInven2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCalc_Click()
    If txtOnHand.Text < 20 Then
         If txtOnOrder.Text < 20 Then
              txtMsg.Text = "Need to Order"
         End If
    End If
End Sub
Private Sub cmdClear_Click()
    txtItemNum.Text = " "
    txtItemName.Text = " "
    txtOnHand.Text = " "
    txtOnOrder.Text = " "
    txtMsg.Text = " "
End Sub
Private Sub cmdEnd_Click()
    End
End Sub