Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- If strLine.Contains("Production Cell 1") Then
- lstProductionCell1.Items.Add(strLine)
- If strLine.Last = Microsoft.VisualBasic.ChrW(0) Then
- PartsFailedCell1 += 1
- lblPartsFailedCell1.Text = CStr(PartsFailedCell1)
- ElseIf strLine.Last = Microsoft.VisualBasic.ChrW(1) Then
- PartsPassedCell1 += 1
- lblPartsPassedCell1.Text = CStr(PartsPassedCell1)
Add Comment
Please, Sign In to add comment