PlayAVIMCI

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Form_Load()
Form2. MMControl1.Visible = False
'Set properties needed by MCI to open.

Form2.MMControl1.Notify = False
Form2.MMControl1.Wait = True
Form2.MMControl1.Shareable = False
Form2.MMControl1.DeviceType = "AVIVideo"
'place Path and Video filename information into following property

Form2.MMControl1.filename = App.Path + "\Test.avi"
'displays video withing Form2

Form2.MMControl1.hWndDisplay = Form2.hWnd
'Open the MCI AVIVideo device.

Form2.MMControl1.Command = "Open"
'VideoPos is global variable that contains save position

Form2.MMControl1.From = VideoPos
Form2.MMControl1.Command = "Play"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form2.MMControl1.Command = "Close"
End Sub

Private Sub Command1_Click()
Form2.MMControl1.Command = "Stop"
VideoPos = Form2.MMControl1.Position
Unload Form2
End Sub