Añade un CommonDialog, y dos botones
Código
El CommonDialog es el control "Microsoft Common Dialog Control 6.0".
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
De todas formas si quieres echale un vistazo: http://support.microsoft.com/kb/191089/es
un saludo