Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Total_CMADataSet.Table1' table. You can move, or remove it, as needed.
Me.Table1TableAdapter.Fill(Me.Total_CMADataSet.Table1)
End Sub
Private Sub Strands_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Strands.TextChanged
Dim area As Decimal = CDec(ListBox1.SelectedValue)
Dim strand As Decimal
Label3.BackColor = Color.Blue
Label3.ForeColor = Color.AntiqueWhite
Label3.BorderStyle = BorderStyle.Fixed3D
If Decimal.TryParse(Strands.Text, strand) Then
strand *= CDec(area)
Label3.Text = strand.ToString
End If
End Sub
End Class