[soper]

وجدت الحل وهو التالي :

PHP كود :

If New System.Text.RegularExpressions.Regex("text<.+?>", System.Text.RegularExpressions.RegexOptions.IgnoreCase).IsMatch(RichTextBox1.Text) = False Then Exit Sub
       Dim b As String = RichTextBox1.Text.Split("<")(1).Split(">")(0)
       Button1.Text = b 


وشكرا للاخ Lovevb لانه هو من اعطاه لي