Creating a MS-like fillable search bar

(Create a Timer, tmrWatchTyping, and a Textbox, txtsearch for this example)

Usage:

tmrWatchTyping.interval = 750

   Private Sub txtsearch_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtSearch.TextChanged

        'The user has just added, edited or removed a value, so restart the Timer.  

        tmrWatchTyping.Stop()

        'lblDisplay.Text = "User is typing something,..."

        txtSearch.Select()

        tmrWatchTyping.Start()

    End Sub

    Private Sub tmrWatchTyping_Tick(sender As System.Object, e As System.EventArgs) Handles tmrWatchTyping.Tick

        'The user hasn't changed the input for the specified period, so stop the Timer (which will be started again the next time the user changes the input).

       tmrWatchTyping.Stop()

        txtSearch.Select()

        'lblDisplay.Text = "Typed value: " & txtSample.Text

        If Len(txtSearch.Text) > 0 Then

'Do your work here

Ribbon1.ActiveTab=RibbonTab5

        Else

        End If

    End Sub

.