Si t'utilise les api, tu peut lister les sorties présentes (ici les entrés mais c'est pareil) :
n = waveInGetNumDevs - 1
For a = 0 To n
Dim wavIcap As WAVEINCAPS
waveInGetDevCaps a, wavIcap, Len(wavIcap)
Combo1.AddItem Trim(wavIcap.szPname)
Next
Combo1.ListIndex = 0
Tu peut ensuite ouvrir le péripherique avec WaveOutOpen...
Mais si t'utilise un composant externe, ch'sais pas....

Flachy Joe
