AVIファイルの再生について

Public Class Class1



    ' 起動パラメータでビデオファイルのフルパスを渡す

    Public Shared Function Main(ByVal arg() As String) As Integer

        If arg.Length.Equals(0) Then

            Return &H1

        End If



        Dim Frm As Form = New Form

        Dim dxVideo As Microsoft.DirectX.AudioVideoPlayback.Video _

            = New Microsoft.DirectX.AudioVideoPlayback.Video(arg(0))



        AddHandler dxVideo.Ending, AddressOf VideoEnding

        dxVideo.Owner = Frm

        Frm.Show()

        dxVideo.Play()



        Application.Run()



        dxVideo.Dispose()

        Frm.Close()

        Return &H0

    End Function



    Friend Shared Sub VideoEnding(ByVal sender As Object, ByVal e As EventArgs)

        Application.Exit()

    End Sub

End Class