[mr_mgm]

[COLOR="#000080"]السلام عليكم ورحمه الله وبركاته

شكرا اخي ابو ايهاب علي المثال المميز

ولكن لما تستخدم Remove ثم Insert الافضل استخدام Replace بشكل مباشر .

يمكن الاستغناء عن هذه الاكود

كود :

Dim StartingLink As String = TextBox1.Text
         Dim Re As String = StartingLink.Remove(0, 31)
             Dim CurrectLink As String = Re.Insert(0, "http://www.youtube.com/v/")

واستخدام داله Replace بطريقه مباشره هكذا

كود :

WebBrowser1.Navigate(Replace(TextBox1.Text, "watch?v=", "v/"))

وفقك الله
[/COLOR]