Afspille 2 lyde efter hinanden

Hej
soundfile$ = App.Path & "\" & nynavn
    wFlags% = SND_ASYNC Or SND_NODEFAULT
    HaHa = sndPlaySound(soundfile$, wFlags%)
Skal have at når lyd nr 1 er færdig spillet, skal den tage lyd nr 2, sætter jeg koden sådan ::::
soundfile$ = App.Path & "\" & nynavn
    wFlags% = SND_ASYNC Or SND_NODEFAULT
    HaHa = sndPlaySound(soundfile$, wFlags%)
    HaHa = sndPlaySound(soundfile$, wFlags%)
afspiller den kun en lyd,
Skal have lavet en pause efter lyd nr 1.
Hvordan ??
Wait er ikke brugbart da lyden længde varierer meget.