Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
Dim intMemNum As Integer
Dim shtQTY As Short
Dim decRentalAmount As Decimal
Const decDiscount As Decimal = CDec(0.1)
Dim decAmtDue As Decimal
Dim shtNumCustomers As Short
Dim decTotalIncome As Decimal
Const decPrice As Decimal = CDec(1.8)
Dim strResult As String = decRentalAmount.ToString("c")
Dim counter As Integer = 0

'TRY/CATCH IN USE

Try
intMemNum = CInt(txtMemNum.Text)

Catch
MessageBox.Show("Member # must be numeric value!")

End Try

Try
shtQTY = CShort(txtQTY.Text)

Catch
MessageBox.Show("All values must be numeric!")
End Try

'declarations

decRentalAmount = CDec(Val(lblRentalAmount.Text))
decAmtDue = CDec(Val(lblAmtDue.Text))
shtNumCustomers = CShort(Val(lblNumCustomers.Text))
decTotalIncome = CDec(Val(lblTotalIncome.Text))

'get figures
Try
intMemNum = CInt(txtMemNum.Text)
Catch
MessageBox.Show("Member # must be numeric value!")
End Try

lblRentalAmount.Text = ("$") + CStr(CStr(CDec(CDbl(shtQTY) * decPrice)))

lblDiscount.Text = ("$") + CStr(CDec((CDbl(lblRentalAmount.Text) * decDiscount)))

lblAmtDue.Text = ("$") + CStr(CDbl(lblRentalAmount.Text) - CDbl(lblDiscount.Text))

lblNumCustomers.Text = CStr(counter + 1)
lblTotalIncome.Text = lblAmtDue.Text

'format currency
'Figures don't display correctly when I use formatcurrency so I removed to Run.

'lblRentalAmount.Text = FormatCurrency(decRentalAmount)
'lblDiscount.Text = FormatCurrency(decDiscount)
'lblAmtDue.Text = FormatCurrency(decAmtDue)
'lblTotalIncome.Text = FormatCurrency(decTotalIncome)

'Do
'lblNumCustomers.Text = counter.ToString()

'counter += 1

'Loop While counter > 1

'Int(counter = 0)

'Do While (counter <= 10)

'Loop

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub

Private Sub lblNumCustomers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblNumCustomers.Click

'counter = counter + 1
' txtMemNum.Text = CStr(counter)
' lblNumCustomers.Text = CStr(counter)

End Sub

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click

'counter
lblNumCustomers.Text = CStr(CDbl(lblNumCustomers.Text) + 1)
lblTotalIncome.Text = CStr(Val((lblAmtDue.Text) + (lblAmtDue.Text)))

txtMemNum.Clear()
txtQTY.Clear()
lblDiscount.Text = String.Empty
lblRentalAmount.Text = String.Empty
'lblAmtDue.Text = String.Empty

'Focus
txtMemNum.Focus()

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtMemNum.Clear()
txtQTY.Clear()
lblDiscount.Text = String.Empty
lblRentalAmount.Text = String.Empty
lblAmtDue.Text = String.Empty
lblNumCustomers.Text = String.Empty
lblTotalIncome.Text = String.Empty
'focus
txtMemNum.Focus()