Dim dblTotalValue As Double = 0
Dim strTicker, strPrice, strShares, strBasis, strValue, strTotalValue As String
Dim dblPrice, dblshares, dblBasis, dblValue As Double
Dim intStockCOunt, intIndex As Integer
Dim lviCurrentPort As New ListViewItem
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
Do While txtTicker.Text <> "" And txtShares.Text <> "" And txtPrice.Text <> ""
strTicker = Convert.ToString(txtTicker.Text)
strPrice = Convert.ToString(txtPrice.Text)
strShares = Convert.ToString(txtShares.Text)
dblPrice = Convert.ToDouble(strPrice)
dblshares = Convert.ToDouble(strShares)
dblBasis = dblPrice * dblshares
dblValue = dblPrice * dblshares
dblTotalValue = dblTotalValue + dblValue
strBasis = Convert.ToString(dblBasis)
strValue = Convert.ToString(dblValue)
strTotalValue = Convert.ToString(dblTotalValue)
For Each itm In lstCurrentPort.Items
Next
lviCurrentPort = New ListViewItem(txtTicker.Text)
lviCurrentPort.SubItems.Add(Format$(strBasis, "Currency"))
lviCurrentPort.SubItems.Add(txtShares.Text)
lviCurrentPort.SubItems.Add(Format$(txtPrice.Text, "Currency"))
lviCurrentPort.SubItems.Add(Format$(strValue, "Currency"))
lstCurrentPort.Items.Add(lviCurrentPort)
txtTotalValue.Text = Format$(strTotalValue, "Currency")
txtTicker.Text = ""
txtShares.Text = ""
txtPrice.Text = ""
If lstCurrentPort.Items.Count > 10 Then
MessageBox.Show("Trial Version only allows 10 entries")
End If
Loop
End Sub