Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' Arama metnini TextBox'tan al
    Dim aramaMetni As String = TextBox1.Text

    ' WebBrowser içinde arama yap
    If Not String.IsNullOrEmpty(aramaMetni) Then
        If WebBrowser1.Document IsNot Nothing Then
            Dim body As HtmlElement = WebBrowser1.Document.Body
            If body IsNot Nothing Then
                Dim bodyText As String = body.InnerHtml

                ' Metni vurgula (örneğin, sarı arka plan ile)
                Dim vurgulananMetin As String = "<span style='background-color: yellow;'>" & aramaMetni & "</span>"
                body.InnerHtml = bodyText.Replace(aramaMetni, vurgulananMetin)

                ' Kullanıcıya mesaj göster
                MessageBox.Show("Metin bulundu!")

                ' WebBrowser içinde kaydırma yap (isteğe bağlı)
                Dim index As Integer = body.InnerHtml.IndexOf(vurgulananMetin, StringComparison.OrdinalIgnoreCase)
                WebBrowser1.Document.Window.ScrollTo(0, index)
            End If
        End If
    Else
        MessageBox.Show("Lütfen arama metnini girin.")
    End If
End Sub