Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
    Dim Vid1 As Video = New Microsoft.DirectX.AudioVideoPlayback.Video( _
      "XYZ.avi")
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
        Vid1.Owner = PictureBox1
        Vid1.Play()
    End Sub