Public Class Research

Private Sub FindBUT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindBUT.Click
    'Check button text
    If FindBUT.Text = ("Find ""dim""") Then
        'Return all text color to black
        TextBox.ForeColor = Color.Black
        'Find "dim" word
        TextBox.Find("dim")
        TextBox.SelectionColor = Color.Aqua
        'change button text to ("Find all")
        FindBUT.Text = ("Find all")
        'Check button text
    ElseIf FindBUT.Text = ("Find all") Then
        'change all text color to Aqua
        TextBox.ForeColor = Color.Aqua
        'change button text to ("Find ""dim"" ")
        FindBUT.Text = ("Find ""dim""")
    End If
End Sub