Как воспроизвести видео в PictureBox

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    Const WS_CHILD As Integer = &H40000000
 
    Private Sub PlayMedia(ByRef FileName As String, ByVal Window As Control)
        FileName = Chr(34) & FileName & Chr(34)
        mciSendString("Open " & FileName & " alias MediaFile parent " & CStr(Window.Handle.ToInt32) & " style " & CStr(WS_CHILD), Nothing, 0, 0)
        mciSendString("put MediaFile window at 0 0 " & CStr(PixelToTwip(Window.ClientRectangle.Width) / 15) & " " & CStr(PixelToTwip(Window.ClientRectangle.Height) / 15), Nothing, 0, 0)
        mciSendString("Play MediaFile", Nothing, 0, 0)
    End Sub
 
    Private Function PixelToTwip(ByVal Pixel As Integer) As Double
        Return Pixel * 15
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        PlayMedia("C:\stalker(Treiler).avi", PictureBox1)
    End Sub

Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
    Dim Video As Microsoft.DirectX.AudioVideoPlayback.Video
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Video = New Video("C:\Documents and Settings\диман\Мои документы\All for S.T.A.L.K.E.R.(SHOC)(STCS)(COP)\Videos\stalker(Treiler).avi")
        Video.FromFile("C:\Documents and Settings\диман\Мои документы\All for S.T.A.L.K.E.R.(SHOC)(STCS)(COP)\Videos\stalker(Treiler).avi")
        Video.Play()
    End Sub
End Class

Video = New Video("C:\Documents and Settings\диман\Мои документы\All for S.T.A.L.K.E.R.(SHOC)(STCS)(COP)\Videos\stalker(Treiler).avi")
        Video.FromFile("C:\Documents and Settings\диман\Мои документы\All for S.T.A.L.K.E.R.(SHOC)(STCS)(COP)\Videos\stalker(Treiler).avi")

Video1 = New Video("C:\Documents and Settings\диман\Мои документы\All for S.T.A.L.K.E.R.(SHOC)(STCS)(COP)\Videos\stalker(Treiler).avi")
        Video1.Owner = PictureBox1
        Video1.Play()

Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
    Dim Video As Microsoft.DirectX.AudioVideoPlayback.Video
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Video = New Video("C:\Documents and Settings\диман\Мои документы\All for S.T.A.L.K.E.R.(SHOC)(STCS)(COP)\Videos\stalker(Treiler).avi")
        Video.Owner = PictureBox1
        Video.Play()
    End Sub
End Class

Video = New Video("C:\Documents and Settings\диман\Мои документы\All for S.T.A.L.K.E.R.(SHOC)(STCS)(COP)\Videos\stalker(Treiler).avi")

Public Class Form1
    Dim plr As Microsoft.DirectX.AudioVideoPlayback.Video
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FD As New Windows.Forms.OpenFileDialog
        FD.Filter = "МУВИКИ|*.avi"
        FD.Title = "www.CyberForum.ru"
        FD.ShowDialog()
        Try
            plr.Dispose()
        Catch ex As Exception
 
        End Try
        If FD.FileName <> "" Then
            plr = New Microsoft.DirectX.AudioVideoPlayback.Video(FD.FileName)
            plr.Owner = PictureBox1
            plr.Play()
        End If
    End Sub