Nessuno sa proprio come risolvere?

ho provato anche questo...

codice:
    Dim durata As Integer
    Dim path As String
    Dim videoFile As Video = New Video("video\entry.wmv")
codice:
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PlayBackgroundSoundFile() ' play sound
 
        '' /// bisogna fare il codice per nascondere il video!
        durata = 1
        videoFile.Owner = Panel1
        videoFile.Play()
        videoFile.Duration.ToString(durata)

        If videoFile.Duration = 1 Then
            videoFile.Stop()

        End If


    End Sub
ma non va...