Public Sub AddPrintBook()
Select Case ShoppingCart.lstCart.Items.Add(lstPrintBooks.SelectedIndex) '"""""Getting a NULL error here. """""
Case 0
strSelectedBook = strYourWay
decSubTotal += decYourWay
decShippingTotal += decShippingTotal
Case 1
strSelectedBook = strHistoryScotland
decSubTotal += decHistoryScotland
decShippingTotal += decShippingTotal
Case 2
strSelectedBook += decCalculus
decSubTotal += decHistoryScotland
decShippingTotal += decShippingTotal
Case 3
strSelectedBook = strRelax
decSubTotal += decRelax
decShippingTotal += decShippingTotal
End Select
End Sub
