Public Sub playMovie()
        'play the movie after you open it
        Try
            retVal = mciSendString("play movie", 0, 0, 0)
        Catch exc As Exception
            MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK)
        End Try
    End Sub

Micke