La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  45 - CARGAR FICHEROS MID EN VISUAL BASIC
Autor:  Juan
Quiero saber como ejecutar automáticamente después de cargarda mi aplicación en Visual Basic ficheros tipo MID, ya que estos ocupan menos espacio que los archivos de tipo WAV, pueden por favor ayudarme con la rutina o el código necesario para ejecutar esta opción.
  Respuesta:  Marcelo Argerich
A pesar que ya debes haber solucionado, te mando este codigo que me parece mas conveniente ya que es breve.
en un modulo pones:
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
en el formulario, evento load:
Private Sub Form_Load()
iResult = mciExecute("Play c:\win98\setup0.wav")
End Sub
Saludos
  Respuesta:  Gabriel Memmel
Hola, he leido las últimas respuestas y he visto que te expicaron todo bien sobre el Mmcontrol pero lo que les faltó especificar es que en la propiedad MMcontrol1.DeviceType debes escribir "Sequencer" que pertenece al archivo midi, esto es,
MMControl1.DeviceType = "Sequencer". Espero que te haya ayudado. Chau
  Respuesta:  Carlos Freitas
Los datos que te dio Pere Romo Cabildo son casi correctos si me permites un detalle Pere Romo Cabildo olvido las "" (comillas) para despues de poner Command te paso el codigo
MMControl1.Command = "OPEN" ´para abrir el control
MMControl1.Command = "PLAY" ´para iniciar la ejecución
´MMControl1.Command = "STOP" ´para parar la ejecución
´MMControl1.Command = "CLOSE" ´para cerrar el control

y otra cosa que no se si la sabras (al que hizo la pregunta) es que tienes que tener tu proyecto referenciado a Microsoft Multimedia control
eso lo haces desde el menu Proyecto, referencias
Espero te sea de utilidad y no haber ofendido al que contesto antes
Saludos
Carlos
  Respuesta:  Hernando Alvarez
Este es un ejemplo de cómo hacer que "suene" un archivo WAV o MID.
- Usando el API de Windows
´meto todo lo necesario en el módulo (las APIS)
Declare Function snpPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

´Si lo que quieres es hacer sonar un archivo .MID
´debes declarar la siguiente función de la API:
Sub MidiWav (A As String)
Dim vr As Long
´Aseguramos que no está en minusculas para que no falle la comparación
A=LCase$(A)
If Len(A) Then
If InStr(A, ".wav") Then
vr=sndPlaySound(ByVal A,1)
ElseIf InStr(A, ".mid") Then
vr=mciExecute("Play" & A)
End If
End If
End Sub

  Respuesta:  Pere Romo Cabildo
Es muy sencillo.
Primero tienes que insertar un mmcontrol en el formulario.
Luego te vas a propiedades y lo haces invisible.
Haz doble click en el formulario y activa la opción LOAD, que se refiere a cuando se carga el formulario.
Finalmente escribe lo siguiente:
MMCONTROL1.FILENAME=("ruta y nombre del archivo Mid")
MMCONTROL1.COMMAND=OPEN ´para abrir el control
MMCONTROL1.COMMAND=PLAY ´para iniciar la ejecución
MMCONTROL1.COMMAND=STOP ´para parar la ejecución
MMCONTROL1.COMMAND=CLOSE ´para cerrar el control
Espero que te sirva, y me gustaría que si te funciona, que seguramente será que si, me lo comuniques.
Si tienes alguna otra duda, no dudes en consultarme