◆状態 ユーザーフォーム上に、「ツール」→「その他のコントロール」で WindowsMediaPlayerを埋め込んでいます。 そして、フォームのコードを下記のように書いています。 Private Sub cbGazouhyouji_Click() 〜中略〜 With main.WindowsMediaPlayer .URL = "C:\XXXXXX\" & XXXX & ".MOV" ←ここまでは正常に動く '.status = "再生中" ←ここが違っているようです End With 中略 End Sub