Public Class Form1
 
    Dim WithEvents dtgw As New DataGridView
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(dtgw)
        Me.Width = 510
        With dtgw
            .Size = New Size(500, 200)
            .ColumnCount = 3
            .Columns.Item(0).Name = "Nombre"
            .Columns.Item(1).Name = "Apellido"
            .Columns.Item(2).Name = "País"
        End With
 
        dtgw.Rows.Add("Julio", "Hernández", "Puerto Rico")
        dtgw.Rows.Add("Alicia", "Casanova", "España")
        dtgw.Rows.Add("Manuel", "Pérez", "México")
 
    End Sub
End Class
 
 

Public NotInheritable Class Form1 : Inherits Form
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
 
        Me.TriggerFindText(DirectCast(sender, TextBox), Me.DataGridView1)
 
    End Sub
 
    Private Sub TriggerFindText(ByVal tb As TextBox, ByVal dgv As DataGridView)
 
        ' Cuando se dispara el evento TextBox.TextChanged, guardamos el texto actual en una variable,
        ' esperamos 300-500 ms approx. y verificamos si el texto sigue siendo el mismo o ha cambiado.
        ' De esta manera evitamos realizar búsquedas indeseadas (términos de búsqueda incompletos) mientras el usuario está escribiendo.
        ' Util también si tenemos miles de filas en el datagridview, para evitar bloqueos en el thread de la UI.
 
       ' Como es evidente, esta metodología está pensada para una búsqueda en "tiempo real";
       ' Si prefieres iniciar la búsqueda solamente cuando se presione la tecla "Enter" entonces esta metodología no tienes por que usarla...
 
        Dim t As New Task(
            Sub()
                Dim oldText As String = tb.Text
                Dim newText As String
                Thread.Sleep(400)
 
                newText = tb.Text
                If String.IsNullOrEmpty(newText) Then
                    ShowAllRowsInDataGridView(dgv)
 
                ElseIf (oldText = newText) Then
                    FindTextInDataGridView(dgv, tb.Text, StringComparison.OrdinalIgnoreCase)
 
                Else ' (oldText <> newText)
                    ' El texto ha cambiado, así que no hacemos nada.
 
                End If
 
            End Sub)
 
        t.Start()
 
    End Sub
 
    Friend Shared Sub ShowAllRowsInDataGridView(ByVal dgv As DataGridView)
 
        If (dgv.InvokeRequired) Then
            dgv.Invoke(New Action(Sub() ShowAllRowsInDataGridView(dgv)))
        End If
 
        dgv.SuspendLayout()
        For Each row As DataGridViewRow In dgv.Rows
            If Not (row.IsNewRow) Then
                row.Visible = True
            End If
        Next row
        dgv.ResumeLayout(performLayout:=True)
 
    End Sub
 
    Friend Shared Sub FindTextInDataGridView(ByVal dgv As DataGridView, ByVal str As String, ByVal stringComparison As StringComparison)
 
        If (dgv.InvokeRequired) Then
            dgv.Invoke(New Action(Sub() FindTextInDataGridView(dgv, str, stringComparison)))
        End If
 
        Dim cellContainsFunc As Func(Of DataGridViewCell, String, Boolean) =
            Function(ByVal cell As DataGridViewCell, s As String)
                If (cell.Value IsNot Nothing) Then
                    Return (cell.Value.ToString().IndexOf(s, stringComparison) <> -1)
                Else
                    Return False
                End If
            End Function
 
        Dim indices As IEnumerable(Of Integer) =
            (From row As DataGridViewRow In dgv.Rows
             Where row.Cells.Cast(Of DataGridViewCell).Any(Function(x As DataGridViewCell) cellContainsFunc(x, str))
             Select row.Index)
 
        dgv.SuspendLayout()
        dgv.ClearSelection()
        For Each row As DataGridViewRow In dgv.Rows
            If Not (row.IsNewRow) Then
                row.Visible = indices.Contains(row.Index)
            End If
        Next row
        dgv.ResumeLayout(performLayout:=True)
 
    End Sub
 
End Class