Private Sub Command1_Click() With MMControl1 .hWndDisplay = Picture1.hWnd .filename = "c:\movies\myvideo.avi" .DeviceType = "AVIVideo" .Command = "open" .Command = "play" End With End Sub