• Home
 · 
• Sound/MP3
 · 
• Play *.AVI movie

Play *.AVI movie

Play *.AVI movie

Rate Play *.AVI movie

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub cmdopen_Click()
CommonDialog1.CancelError = True
On Error GoTo Errhandler:
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.Filter = "Video (*.AVI)|*.AVI"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"
Errhandler:
    'if cancel clicked, then exit procedure
End Sub

Private Sub cmdplay_Click()
MMControl1.Command = "Play"
End Sub

Private Sub cmdquit_Click()
End
End Sub