Dim lviCurrentPort As New ListViewItem
    Dim dblTotalValue As Double = 0
    Dim strTicker, strPrice, strShares, strBasis, strValue, strTotalValue, strTickerList As String
    Dim dblPrice, dblshares, dblBasis, dblValue As Double
    Dim intStockCOunt, intListCount, intSelectedTicker As Integer
    Dim exactMatch As Boolean
    Dim intRow As Integer = 0

    ' If the user leaves one of the fields blank, it will produce an error and give focus to that specific
    ' field. 
    Private Sub btnAddStock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddStock.Click
        If txtTicker.Text = "" Then
            MessageBox.Show("Oops.. you left Ticker blank", "Ticker Blank")
            txtTicker.Focus()
        ElseIf txtShares.Text = "" Then
            MessageBox.Show("Oops..you left Shares blank", "Shares Blank")
            txtShares.Focus()
        ElseIf txtPrice.Text = "" Then
            MessageBox.Show("Oops..you left Price blank", "Price Blank")
            txtPrice.Focus()
        End If
        'Line 510 ensures that the three fields are not blank. 
        Do While txtTicker.Text.ToString <> "" And txtShares.Text.ToString <> "" And txtPrice.Text.ToString <> ""
            ' Converts the number entered in the Price field to a double data type.
            dblPrice = Convert.ToDouble(txtPrice.Text)
            ' Converts the number entered in the Shares field to a double data type.
            dblshares = Convert.ToDouble(txtShares.Text)
            ' Creates a variable by multiplying Price * Shares
            dblBasis = dblPrice * dblshares
            ' Creates a variable by multiplying Price & Shares
            dblValue = dblPrice * dblshares
            ' Creates a variable by adding Total Value & Value
            dblTotalValue = dblTotalValue + dblValue
            ' Converts the Basis field to a string
            strBasis = Convert.ToString(dblBasis)
            ' Converts the Value field to a string
            strValue = Convert.ToString(dblValue)
            ' Converts the Total Value field to a string
            strTotalValue = Convert.ToString(dblTotalValue)

            ' Creates a new list view item called lviCurrentPort with the first item 
            ' being the Ticker field.
            lviCurrentPort = New ListViewItem(txtTicker.Text)
            ' Adds the Basis subitem and converts it to a Currency.
            lviCurrentPort.SubItems.Add(Format$(strBasis, "Currency"))
            ' Adds the Shares sub item.
            lviCurrentPort.SubItems.Add(txtShares.Text)
            ' Adds the Price sub item and converts it to a Currency.
            lviCurrentPort.SubItems.Add(Format$(txtPrice.Text, "Currency"))
            ' Adds the Value sub item and converts it to a Currency.
            lviCurrentPort.SubItems.Add(Format$(strValue, "Currency"))
            ' Loop that check each item in the list view box. 
            intListCount = Convert.ToInt32(lstCurrentPort.Items.Count)
            For intRow = 0 To intListCount - 1
                ' If the text in the Ticker field matches any Item in the list view box, an error
                ' message will display and focus will be given to the Ticker field. 
                strTicker = Convert.ToString(txtTicker.Text)
                strTickerList = Convert.ToString(lstCurrentPort.Items(intRow).Text)
                If strTicker = strTickerList Then
                    exactMatch = True
                Else
                    exactMatch = False
                End If
            Next
            If exactMatch = True Then
                MessageBox.Show("Duplicate Detected")
                txtTicker.Text = ""
                txtTicker.Focus()
            End If
            If exactMatch = False Then
                ' Takes the listviewitem created with all the items & subitems and adds it to the 
                ' List View Box called lstCurrentPort
                lstCurrentPort.Items.Add(lviCurrentPort)
                ' Once a duplicate is not found, these lines of code will run. 
                txtTotalValue.Text = Format$(strTotalValue, "Currency")
                txtTicker.Text = ""
                txtShares.Text = ""
                txtPrice.Text = ""
                ' If the lines of code is greater than 10, an error message will display. 
                If lstCurrentPort.Items.Count > 10 Then
                    MessageBox.Show("Trial Version only allows 10 entries")
                End If
            End If
        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 lstCurrentPort_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstCurrentPort.SelectedIndexChanged
        For intSelectedTicker = 0 To Me.lstCurrentPort.SelectedIndices.Count - 1
            txtCurrentSelect.Text = lstCurrentPort.Items(intSelectedTicker).Text
        Next