AVIを別フォームで自動再生，自動終了する方法 (ID:79497)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 MMControlは使ったことないですがとりあえず こんな感じで実行できました。 どなたか他に正しい使い方知っている方いらっしゃいましたら よろしくお願いします。 Private Sub Form_Load() With MMControl1 .Visible = False .Notify = False .Wait = True .Shareable = False .DeviceType = "AVIVideo" .FileName = "(再生するAVIファイル)" .hWndDisplay = Picture1.hWnd .Command = "Open" .Command = "Play" End With End Sub Private Sub MMControl1_Done(NotifyCode As Integer) Unload Me End Sub