[سؤال] اضافة vimeo - نسخة قابلة للطباعة

كود :

Public Class Form1

    Dim WithEvents WebBrowser1 As New WebBrowser

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        WebBrowser1.Navigate(Me.TextBox1.Text)

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) _

    Handles WebBrowser1.DocumentCompleted

        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then

            Dim result = System.Text.RegularExpressions.Regex.Match(WebBrowser1.DocumentText, "(?<=VIDEO src="").+(?="")").Value.Trim

            If result <> "" Then

                WebBrowser1.Stop()

                Me.Text = WebBrowser1.DocumentTitle

                Me.AxWindowsMediaPlayer1.URL = result

            End If

        End If

    End Sub

End Class