Wenas, vi un ejemplo de estos q hacen lo de micro$oft:
Añade un CommonDialog, y dos botones
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Debug.Print CommonDialog1.filename
Debug.Print mciSendString( _
"open " & CommonDialog1.filename & " alias testfile", 0&, 0, 0)
' To work around the long file name limitation use the next line
' instead of the previous line, which adds quotes around the path
' and file name.
'Debug.Print mciSendString( _
"open " & """" & CommonDialog1.filename & """" _
& " alias testfile", 0&, 0, 0)
Debug.Print mciSendString("play testfile wait", 0&, 0, 0)
End Sub
Private Sub Command2_Click()
Debug.Print mciSendString("close testfile", 0&, 0, 0)
End Sub
Private Sub Form_Load()
Command1.Caption = "Open and Run"
Command2.Caption = "Close MDI file"
End Sub
El CommonDialog es el control "Microsoft Common Dialog Control 6.0".
De todas formas si quieres echale un vistazo:
http://support.microsoft.com/kb/191089/esun saludo