A procedure should calculate a 2% price increase on all red shirts, but a 1% price increase on all other items. In addition to calculating the price increase, the procedure also should calculate the...

A procedure should calculate a 2% price increase on all red shirts, but a 1% price increase on all other items. In addition to calculating the price increase, the procedure also should calculate the new price. You can use the variables strItemColor, strItem, decOrigPrice, decIncrease, and decNewPrice. Format the original price, price increase, and new price using the “N2” format. Display the original price, price increase, and new price in the lblOriginal, lblIncrease, and lblNewPrice controls, respectively. Write the Visual Basic code.