Dim reader As New StringReader(RichTextBox2.Text) Dim tmp As String = reader.ReadToEnd Dim MD As Match = md.Match(tmp) For Each M As String In RichTextBox2.Lines If M.Contains(MD.ToString) Then Label4.Text = MD.ToString End If Next M
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)