Controls and properties as they were set:

Form
	The name property
	The caption property
	Start Up position to 2-center
	Moveable to False
	Border Style to 1-Fixed Single

Text boxe for id 
	Name to txtCustId
	Text to Null
	TabIndex to 0
	
Text box for Name
	Name to txtCustName
	Text to Null
	TabIndex to 1

Frame for shirt type
	Name to fraShirtType
	Caption to Type of Shirt

Option Buttons for the shirt types
	Name 
	Caption 
	TabStop to False
The dummy option's visible property was set to False and no caption was used

Text boxes for quantities
	Name
	Text to Null
	Alignment to Right justify
	TabStop to False

Frame for check boxes
	Name and Caption

Check boxes
	Name
	Caption 
	TabStop to False

Frame for Operations
	Name and Caption

Command Buttons
	Name and Captions

Picture Box
	Name

Text box for display
	Name
	Text set to null
	Scroll Bars to both
	Multiline to true

Variables used in this project:

Modular:

Option Explicit
'Declare a variable for the date
Dim CurrentDate As Date			This is just for show at this time


'Declare running totals.
Dim intTotalSmMLgShirts As Integer		These are for the detail display
Dim intTotalXLShirts As Integer
Dim intTotalXXLShirts As Integer

Dim curTotalSmMLgAmount As Currency		These are for the detail display
Dim curTotalXLAmount As Currency
Dim curTotalXXLAmount As Currency

'Declare all final total variables.
Dim intTotalCustomers As Integer		This is to keep a total of all the customers

Dim intTotalAllSmMLgShirts As Integer	This is to keep the final total of all shirt types
Dim intTotalAllXLShirts As Integer		individually
Dim intTotalAllXXLShirts As Integer

Dim intTotalAllShirts As Integer		This is for the total of all shirts together

Dim curTotalAllSmMLgAmount As Currency	This is for the individual final totals
Dim curTotalAllXLAmount As Currency
Dim curTotalAllXXLAmount As Currency

Dim curFinalAmounttotal As Currency		This is the final total of all amounts.

Local:

'Declare constant variables:
Const curSmMLgCost As Currency = 10#
Const curXLCost As Currency = 11#
Const curXXLCost As Currency = 12#
Const curMonogramCost As Currency = 2#
Const curPocketCost As Currency = 1#
Const sngDiscountAmt As Single = 0.1

'Declare local quantity variables.
Dim intSmMLgShirt As Integer
Dim intXLShirt As Integer
Dim intXXLShirt As Integer

'Declare local amount variables to keep a current total for each type of shirt.
Dim curSmMLgAmount As Currency
Dim curXLAmount As Currency
Dim curXXLAmount As Currency


'Declare local total variables.
Dim curTotalAmount As Currency 
'THIS WILL BE THE COMMON TOTAL AMOUNT VARIABLE.
Dim intTotalQuantity As Integer 
'THIS WILL BE THE COMMON QUANTITY HOLDING VARIABLE.

'Declare a type of shirt holding variable.
Dim strShirtTypeHold As String		This is to display the type of shirt