'Aşağıdaki satır formlardan bağımsız bir modüle konulacak
Declare Function mciExecute Lib ' MMSystem' (ByVal FileName as String) As Integer
' Fonksiyonu aşağıdaki gibi kullanabilirsiniz.
' Tırnak içindeki play komutu sabit kalmalıdır.
Sub Form1_Click ()
' x değeri dosyanın başarılı olarak çalışıp çalışmadığını döndürür.
x = mciExecute(' Play c:\windows\ding.wav' )
x = mciExecute(' Play test.avi' )
End Sub