lstOutput.Items.Clear() 'clear listbox
Dim intCount As Integer
Dim dblLoan As Double = 563
Dim strZone As String = "{0,-16} {1,10}" 'make zone
lstOutput.Items.Add(String.Format(strZone, "Starting Balance", FormatCurrency(dblLoan))) 'show starting balance
For intCount = 1 To 5
dblLoan = dblLoan * 1.01 - 116 'find balance
If dblLoan < 0 Then
dblLoan = 0
End If
lstOutput.Items.Add(String.Format(strZone, "After Month " & _
intCount, FormatCurrency(dblLoan))) 'show balance after each month
Next
lstOutput.Items.Clear() 'clear listbox
Dim intCount As Integer 'declare variables
Dim dblPrice As Double
Dim dblQuantity As Double = 80
Dim strZone As String = "{0,-15}{1,10}{2,10}" 'make zone
dblPrice = 20 - 0.1 * dblQuantity
lstOutput.Items.Add(String.Format(strZone, "Year", "Quantity", "Price")) 'show row
lstOutput.Items.Add("")
lstOutput.Items.Add(String.Format(strZone, "Starting Year", dblQuantity,
FormatCurrency(dblPrice))) 'd
 "Free Rider 2"){kind=icon}
 "Pillage the Village"){kind=icon}
 "Cute Cat Puzzle"){kind=icon}
 "Cosmic Crush"){kind=icon}
 "Uberness"){kind=icon}
 "Ancient Origins{flying fish}"){kind=icon}
 "Rings"){kind=icon}
 "Tarnation"){kind=icon}
 "Sonny"){kind=icon}
 "Warlords: Call to Arms"){kind=icon}
 "Understanding Games: Episode 4"){kind=tracking}