SoloCodigo

depronto con la api, prueba esta

'This project needs a button
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: WWW.ALLAPI.NET

hola amigos creo que no me explique bien lo que tengo es algo asi:
un comand que cuando se ejecuta tiene que mostrar cinco figuras pero cada una con un sonido diferente. Entonces regreso a mi problema que los sonidos se ejecutan muy rapido y no se aprecian. tienen alguna idea de como puedo hacer que terminado el primer sonido muestre la segunda figura, suene el segundo sonido y asi susecivamente?

Gracias amigos voy a probar con sus ideas haber que sale
Saludos a todos

:hola:Hola aTauRy haz dado en el clavo es justo lo que quiero, pero haber si me ayudas con esas apis no las conozco. Te agradeceria bastante

Hola Cyclop lo que tengo es algo asi:
Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_MEMORY = &H4
Private Const SND_LOOP = &H8
Private Const SND_NOSTOP = &H10
Private Const SND_SYNC = &H0

Public Sub PlaySound(strSoundFile As String)
    Call sndPlaySound(strSoundFile, SND_ASYNC)
End Sub

Private Sub Pausa()
Dim i As Long
For i = 0 To 1000000
Next
End Sub

Private Sub Mostrar_Imagenes()
PlaySound App.Path & "\sonido_1.wav"
Primera.Picture = imagen(A)
Pausa
PlaySound App.Path & "\sonido_2.wav"
Segunda.Picture = imagen(
Pausa
PlaySound App.Path & "\sonido_3.wav"
Tercera.Picture = imagen©
Pausa
PlaySound App.Path & "\sonido_4.wav"
Cuarta.Picture = imagen(D)
Pausa
PlaySound App.Path & "\sonido_5.wav"
Quinta.Picture = imagen(E)
Pausa
End Sub

Private Sub Form_Load()
Mostrar_Imagenes
End Sub

Esto funciona mas o menos ya que Pausa depende de la velocidad de la maquina donde instale el programa, tu codigo funciona tambien con Pausa antes de ejecutar otro sonido, probe con el timer pero corre mal; tambien use DoEvents (no se si bien) pero me genera otros errores en otras partes del programa. Voy a seguir tratando de otras formas haber si sale, ya les aviso. Gracias por todo

Hola amigos, encontre por ahi algo sencillo y que ha servido a mi proyecto aqui les dejo:

Private Sub Pausa()
Dim controlar
Dim comenzar
comenzar = Timer
Do Until controlar >= comenzar + 0.1
controlar = Timer
'DoEvents
Loop
End Sub

Gracias por su apoyo, Saludos a todos