Pre STory - I've had a lot of problems with this program, and I just
added the last part of it (the add item code) and now an older part of
the program crashes.

Public Structure Stocks
   Public stockName As String
   Public numShares As Double
   Public datePurchased As String
   Public purchasePrice As Double
   Public currentPrice As Double
End Structure

Public Class frmMain
   Inherits System.Windows.Forms.Form
   Dim StockData(50) As Stocks
   Dim ProfitRow As Integer
#Region " Windows Form Designer generated code "

   Public Sub New()
       MyBase.New()

       'This call is required by the Windows Form Designer.
       InitializeComponent()

       'Add any initialization after the InitializeComponent() call

   End Sub

   'Form overrides dispose to clean up the component list.
   Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
       If disposing Then
           If Not (components Is Nothing) Then
               components.Dispose()
           End If
       End If
       MyBase.Dispose(disposing)
   End Sub

   'Required by the Windows Form Designer
   Private components As System.ComponentModel.IContainer

   'NOTE: The following procedure is required by the Windows Form
Designer
   'It can be modified using the Windows Form Designer.
   'Do not modify it using the code editor.
   Friend WithEvents lblStock As System.Windows.Forms.Label
   Friend WithEvents txtStock As System.Windows.Forms.TextBox
   Friend WithEvents lblCurrentPrice As System.Windows.Forms.Label
   Friend WithEvents txtCurrentPrice As System.Windows.Forms.TextBox
   Friend WithEvents lblDatePurchased As System.Windows.Forms.Label
   Friend WithEvents lblNumberOfShares As System.Windows.Forms.Label
   Friend WithEvents txtDatePurchased As System.Windows.Forms.TextBox
   Friend WithEvents txtNumberOfShares As System.Windows.Forms.TextBox
   Friend WithEvents btnAddStock As System.Windows.Forms.Button
   Friend WithEvents Button2 As System.Windows.Forms.Button
   Friend WithEvents btnDisplay As System.Windows.Forms.Button
   Friend WithEvents btnShowProfitLoss As System.Windows.Forms.Button
   Friend WithEvents btnQuit As System.Windows.Forms.Button
   Friend WithEvents lblPurchasePrice As System.Windows.Forms.Label
   Friend WithEvents txtPurchasePrice As System.Windows.Forms.TextBox
   Friend WithEvents lstProfitLoss As System.Windows.Forms.ListBox
   Friend WithEvents lblProfitLoss As System.Windows.Forms.Label
   Friend WithEvents lstOutput As System.Windows.Forms.ListBox
   <System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
       Me.lblStock = New System.Windows.Forms.Label
       Me.txtStock = New System.Windows.Forms.TextBox
       Me.lblCurrentPrice = New System.Windows.Forms.Label
       Me.txtCurrentPrice = New System.Windows.Forms.TextBox
       Me.lblDatePurchased = New System.Windows.Forms.Label
       Me.lblNumberOfShares = New System.Windows.Forms.Label
       Me.txtDatePurchased = New System.Windows.Forms.TextBox
       Me.txtNumberOfShares = New System.Windows.Forms.TextBox
       Me.btnAddStock = New System.Windows.Forms.Button
       Me.Button2 = New System.Windows.Forms.Button
       Me.btnDisplay = New System.Windows.Forms.Button
       Me.btnShowProfitLoss = New System.Windows.Forms.Button
       Me.btnQuit = New System.Windows.Forms.Button
       Me.lblPurchasePrice = New System.Windows.Forms.Label
       Me.txtPurchasePrice = New System.Windows.Forms.TextBox
       Me.lstOutput = New System.Windows.Forms.ListBox
       Me.lstProfitLoss = New System.Windows.Forms.ListBox
       Me.lblProfitLoss = New System.Windows.Forms.Label
       Me.SuspendLayout()
       '
       'lblStock
       '
       Me.lblStock.Location = New System.Drawing.Point(16, 8)
       Me.lblStock.Name = "lblStock"
       Me.lblStock.Size = New System.Drawing.Size(40, 23)
       Me.lblStock.TabIndex = 0
       Me.lblStock.Text = "Stock"
       '
       'txtStock
       '
       Me.txtStock.Location = New System.Drawing.Point(64, 8)
       Me.txtStock.Name = "txtStock"
       Me.txtStock.Size = New System.Drawing.Size(100, 20)
       Me.txtStock.TabIndex = 1
       '
       'lblCurrentPrice
       '
       Me.lblCurrentPrice.Location = New System.Drawing.Point(184, 8)
       Me.lblCurrentPrice.Name = "lblCurrentPrice"
       Me.lblCurrentPrice.Size = New System.Drawing.Size(72, 23)
       Me.lblCurrentPrice.TabIndex = 2
       Me.lblCurrentPrice.Text = "Current Price"
       '
       'txtCurrentPrice
       '
       Me.txtCurrentPrice.Location = New System.Drawing.Point(264, 8)
       Me.txtCurrentPrice.Name = "txtCurrentPrice"
       Me.txtCurrentPrice.Size = New System.Drawing.Size(72, 20)
       Me.txtCurrentPrice.TabIndex = 3
       '
       'lblDatePurchased
       '
       Me.lblDatePurchased.Location = New System.Drawing.Point(400, 8)
       Me.lblDatePurchased.Name = "lblDatePurchased"
       Me.lblDatePurchased.Size = New System.Drawing.Size(100, 32)
       Me.lblDatePurchased.TabIndex = 4
       Me.lblDatePurchased.Text = "Date Purchased (mm/dd/yy)"
       '
       'lblNumberOfShares
       '
       Me.lblNumberOfShares.Location = New System.Drawing.Point(544,
8)
       Me.lblNumberOfShares.Name = "lblNumberOfShares"
       Me.lblNumberOfShares.Size = New System.Drawing.Size(88, 32)
       Me.lblNumberOfShares.TabIndex = 5
       Me.lblNumberOfShares.Text = "Number of Shares"
       '
       'txtDatePurchased
       '
       Me.txtDatePurchased.Location = New System.Drawing.Point(400,
48)
       Me.txtDatePurchased.Name = "txtDatePurchased"
       Me.txtDatePurchased.Size = New System.Drawing.Size(100, 20)
       Me.txtDatePurchased.TabIndex = 6
       '
       'txtNumberOfShares
       '
       Me.txtNumberOfShares.Location = New System.Drawing.Point(544,
48)
       Me.txtNumberOfShares.Name = "txtNumberOfShares"
       Me.txtNumberOfShares.Size = New System.Drawing.Size(104, 20)
       Me.txtNumberOfShares.TabIndex = 7
       '
       'btnAddStock
       '
       Me.btnAddStock.Location = New System.Drawing.Point(72, 48)
       Me.btnAddStock.Name = "btnAddStock"
       Me.btnAddStock.Size = New System.Drawing.Size(75, 23)
       Me.btnAddStock.TabIndex = 8
       Me.btnAddStock.Text = "Add Stock"
       '
       'Button2
       '
       Me.Button2.Location = New System.Drawing.Point(160, 48)
       Me.Button2.Name = "Button2"
       Me.Button2.Size = New System.Drawing.Size(104, 23)
       Me.Button2.TabIndex = 9
       Me.Button2.Text = "Update Stock"
       '
       'btnDisplay
       '
       Me.btnDisplay.Location = New System.Drawing.Point(72, 80)
       Me.btnDisplay.Name = "btnDisplay"
       Me.btnDisplay.Size = New System.Drawing.Size(75, 23)
       Me.btnDisplay.TabIndex = 10
       Me.btnDisplay.Text = "Display"
       '
       'btnShowProfitLoss
       '
       Me.btnShowProfitLoss.Location = New System.Drawing.Point(160,
80)
       Me.btnShowProfitLoss.Name = "btnShowProfitLoss"
       Me.btnShowProfitLoss.Size = New System.Drawing.Size(104, 23)
       Me.btnShowProfitLoss.TabIndex = 11
       Me.btnShowProfitLoss.Text = "Show Profit/Loss"
       '
       'btnQuit
       '
       Me.btnQuit.Location = New System.Drawing.Point(280, 64)
       Me.btnQuit.Name = "btnQuit"
       Me.btnQuit.Size = New System.Drawing.Size(75, 23)
       Me.btnQuit.TabIndex = 12
       Me.btnQuit.Text = "Quit"
       '
       'lblPurchasePrice
       '
       Me.lblPurchasePrice.Location = New System.Drawing.Point(400,
88)
       Me.lblPurchasePrice.Name = "lblPurchasePrice"
       Me.lblPurchasePrice.Size = New System.Drawing.Size(100, 23)
       Me.lblPurchasePrice.TabIndex = 13
       Me.lblPurchasePrice.Text = "Purchase Price"
       '
       'txtPurchasePrice
       '
       Me.txtPurchasePrice.Location = New System.Drawing.Point(512,
88)
       Me.txtPurchasePrice.Name = "txtPurchasePrice"
       Me.txtPurchasePrice.Size = New System.Drawing.Size(136, 20)
       Me.txtPurchasePrice.TabIndex = 14
       '
       'lstOutput
       '
       Me.lstOutput.Location = New System.Drawing.Point(24, 112)
       Me.lstOutput.Name = "lstOutput"
       Me.lstOutput.Size = New System.Drawing.Size(624, 134)
       Me.lstOutput.TabIndex = 15
       '
       'lstProfitLoss
       '
       Me.lstProfitLoss.FormattingEnabled = True
       Me.lstProfitLoss.Location = New System.Drawing.Point(24, 275)
       Me.lstProfitLoss.Name = "lstProfitLoss"
       Me.lstProfitLoss.Size = New System.Drawing.Size(620, 186)
       Me.lstProfitLoss.TabIndex = 16
       Me.lstProfitLoss.Visible = False
       '
       'lblProfitLoss
       '
       Me.lblProfitLoss.AutoSize = True
       Me.lblProfitLoss.Font = New System.Drawing.Font("Verdana",
14.25!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
       Me.lblProfitLoss.Location = New System.Drawing.Point(20, 249)
       Me.lblProfitLoss.Name = "lblProfitLoss"
       Me.lblProfitLoss.Size = New System.Drawing.Size(196, 23)
       Me.lblProfitLoss.TabIndex = 17
       Me.lblProfitLoss.Text = "Profit/Loss Table" &
Global.Microsoft.VisualBasic.ChrW(13) &
Global.Microsoft.VisualBasic.ChrW(10)
       Me.lblProfitLoss.Visible = False
       '
       'frmMain
       '
       Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
       Me.ClientSize = New System.Drawing.Size(656, 473)
       Me.Controls.Add(Me.lblProfitLoss)
       Me.Controls.Add(Me.lstProfitLoss)
       Me.Controls.Add(Me.lstOutput)
       Me.Controls.Add(Me.txtPurchasePrice)
       Me.Controls.Add(Me.lblPurchasePrice)
       Me.Controls.Add(Me.btnQuit)
       Me.Controls.Add(Me.btnShowProfitLoss)
       Me.Controls.Add(Me.btnDisplay)
       Me.Controls.Add(Me.Button2)
       Me.Controls.Add(Me.btnAddStock)
       Me.Controls.Add(Me.txtNumberOfShares)
       Me.Controls.Add(Me.txtDatePurchased)
       Me.Controls.Add(Me.lblNumberOfShares)
       Me.Controls.Add(Me.lblDatePurchased)
       Me.Controls.Add(Me.txtCurrentPrice)
       Me.Controls.Add(Me.lblCurrentPrice)
       Me.Controls.Add(Me.txtStock)
       Me.Controls.Add(Me.lblStock)
       Me.Name = "frmMain"
       Me.Text = "Stock Analysis"
       Me.ResumeLayout(False)
       Me.PerformLayout()

   End Sub

#End Region

   Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnQuit.Click
       End
   End Sub
   Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnDisplay.Click

       Dim indexPicked As Integer

       indexPicked = lstOutput.SelectedIndex

       Select Case indexPicked '' maybe there is a better way to do
this? maybe not
           Case indexPicked
               txtStock.Text = StockData((indexPicked)).stockName
               txtPurchasePrice.Text =
StockData((indexPicked)).purchasePrice
               txtDatePurchased.Text =
StockData((indexPicked)).datePurchased
               txtCurrentPrice.Text =
StockData((indexPicked)).currentPrice
               txtPurchasePrice.Text =
StockData((indexPicked)).purchasePrice
               txtNumberOfShares.Text =
StockData((indexPicked)).numShares
       End Select

   End Sub
   Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
       IntializeData() ' Loading data from CSV routine
   End Sub

   Sub IntializeData()
       Dim arr() As String
       Dim row, i, displayStop As Integer
       Dim sLine As String

       Dim fstream As IO.StreamReader = New IO.StreamReader(New
IO.FileStream("csvstocks.txt", IO.FileMode.Open))
       Dim fmtStr As String = "{0,-35}{1,-15}{2,25}{3,15}  {4,40}"

       row = 0

       Do While fstream.Peek <> -1  '' Load everything up!
           sLine = fstream.ReadLine
           arr = sLine.Split(","c)
           StockData(row).stockName = arr(0)
           StockData(row).numShares = arr(1)
           StockData(row).datePurchased = arr(2)
           StockData(row).purchasePrice = arr(3)
           StockData(row).currentPrice = arr(4)
           row = row + 1
       Loop

       ProfitRow = row '' asigns the max value to use later in the
Profit/Loss routine

       fstream.Close()

       i = 0

       displayStop = row

       Do Until i = displayStop '' Tricky nice way of doing that huh?
           lstOutput.Items.Add(String.Format(fmtStr,
StockData((i)).stockName, StockData((i)).numShares,
StockData((i)).datePurchased, StockData((i)).purchasePrice,
StockData((i)).currentPrice))
           row = row - 1
           i = i + 1
       Loop

   End Sub

   Private Sub btnShowProfitLoss_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnShowProfitLoss.Click

       lstProfitLoss.Visible = True
       lblProfitLoss.Visible = True
       lstProfitLoss.Items.Clear()

       Dim fmtStrProfit As String = "{0,55}{1,55}{2,45}  {3,25}"

       Dim tmpArray(50, 4) As String '' 50 rows should be enough for
this program
       Dim j, xi As Integer

       xi = ProfitRow
       j = 0

       ' First write the 0 places (stock name)
       Do Until j = ProfitRow
           tmpArray(j, 0) = StockData((j)).stockName
           j = j + 1
       Loop

       j = 0 ' reset this back to zero for each of the loops to do its
magic

       Dim x As Integer ' need another variable for the next stages
       x = 0

       ' Now lets do some massive math
       Do Until j = ProfitRow
           tmpArray(j, 1) = StockData((j)).numShares *
StockData((j)).purchasePrice
           j = j + 1
       Loop

       j = 0 ' zero back out

       Do Until j = ProfitRow
           tmpArray(j, 2) = StockData((j)).numShares *
StockData((j)).currentPrice
           j = j + 1
       Loop

       j = 0 ' zero out again!

       Do Until j = ProfitRow
           tmpArray(j, 3) = tmpArray(j, 2) - tmpArray(j, 1)
           j = j + 1
       Loop

       j = 0

       Do Until j = ProfitRow ' finally list them
           lstProfitLoss.Items.Add(String.Format(fmtStrProfit,
tmpArray(j, 0), tmpArray(j, 1), tmpArray(j, 2), tmpArray(j, 3)))
           j = j + 1
       Loop

   End Sub

   Private Sub btnAddStock_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles btnAddStock.Click

       Dim sw As IO.StreamWriter = IO.File.AppendText("csvstocks.txt")

       Dim tmpName, tmpDate As String
       Dim tmpNum, tmpPurchase, tmpCurrent As Double

       tmpName = txtStock.Text
       tmpNum = txtNumberOfShares.Text
       tmpDate = txtDatePurchased.Text
       tmpPurchase = txtPurchasePrice.Text
       tmpCurrent = txtCurrentPrice.Text

       Dim tmpString() As String = {"tmpName", "tmpNum", "tmpDate",
"tmpPurchase", "tmpCurrent"}

       sw.WriteLine(String.Join(","c, tmpString))

       sw.Close()

   End Sub
End Class

This is the error code that always shows up
Error    1    'frmMain' is a type in 'StockAnalysis' and cannot be used as an
expression.    F:\Programming
Projects\StockAnalysis\Form1.vb    0    0    StockAnalysis

That's all the code, it crashes when you run it on
StockData(row).numShares = arr(1) saying its out of bounds.

This was working just a little bit before I put the Add stock button
code, even when I take out the code the error is still there and the
program crashes.  I've probably deleted some part of code on accident
and can't figure it out.  Thanks for the help