QHTML 2.0 - frmKeyword.vb


	Imports QHTML.frmQHTML Public Class frmKeyword Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click Dim Result As String = "<meta name=" + Quote + "keywords" + Quote + " content=" Dim Q As Int32 Q = QuickSearch("<head>", frmQHTML.txtCode.Text) Result += Quote + txtKey.Text + Quote + ">" frmQHTML.txtCode.Text = frmQHTML.txtCode.Text.Insert(Q + 4, Result + vbCrLf + " ") Me.Close() End Sub End Class