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
Dim strYear As String 'declare variables
Dim dblUsSales, dblWorldSales, dblUsRev, dblForeign, dblAverage As Double
'read from data file
Dim srPC As IO.StreamReader = IO.File.OpenText("pc.txt")
Dim strZone As String = "{0,-10}{1,-10}{2,-20}{3,-16}{4,-16}{5,-16}" 'make zone
lstOutput.Items.Add(String.Format(strZone, "Year", "US Sales", "Worldwide Sales", "US Revenues", "Pct Foreign", "Avg Rev"))
lstOutput.Items.Add("") 'display output
Do Until srPC.Peek = -1
 "the crazy game"){kind=icon}
 "Aliens Must Die : The Jupiter Wars"){kind=icon}
 "In The Wood"){kind=icon}
 "Bowja the Ninja 2 (In Bigman's Compound)"){kind=icon}
 "GemCraft"){kind=icon}
 "Modern Tactics 2"){kind=icon}
 "Kill The Boss"){kind=icon}
 "Dino Run"){kind=icon}
 "Free Rider 2"){kind=icon}
 "Deathworld In Space"){kind=icon}
 "Chronotron"){kind=icon}