Сканер штрих-кодов

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
        If TextBox1.Text = "" Then TextBox1.BackColor = Color.White : Exit Sub
 
 
        Dim p As Boolean = True
 
 
        For Each r As DataGridViewRow In Grid1.Rows
 
            If r.Cells("Код").Value.ToString.ToLower = TextBox1.Text.ToLower Then
 
                p = False : TextBox1.SelectAll()
 
                Grid1.CurrentCell = r.Cells("НазваниеЗапчасти")
                Grid1.FirstDisplayedScrollingRowIndex = r.Index
 
                Exit For
 
            End If
 
        Next
 
 
        If p Then TextBox1.BackColor = Color.LightSalmon Else TextBox1.BackColor = Color.White
 
 
        Timer1.Enabled = p
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Timer1.Enabled = False
 
 
        If TextBox1.Text.Replace(" ", "") <> "" Then
 
            With frmЗапчасть
 
                .Text = "Добавить запчасть на склад"
 
                .Label1.Text = "Добавить запчасть"
                .Label2.Text = "> Добавление новой запчасти"
 
                .Button1.Text = "&Добавить"
 
                .ShowDialog()
 
            End With
 
        End If
 
    End Sub