Sound card control with VB6?

[David Saum]

I am modifying some VB6 code I found online
for computing the spectra of sound card data

http://fullspectrum.com/deeth/programming/vb.html#Spect

in order to build a receiver to detect Gamma Ray
Bursts (GRB).

http://www.infiltec.com/SID-GRB@home

The original code allows for sampling rates from 11.025 - 44.1khz,
and that works OK, but I need to sample my Audigy2 sound card
at 48 or preferably 96khz in order to look at signals around 24khz.

So far I have not been able to figure out how to adjust
the sampling rate to 48 or 96kHz. The original code
has the following statements:

Private Const WAVE_FORMAT_1M0 8 = &H1& '/* 11.025 kHz,
Mono, 8-bit
Private Const WAVE_FORMAT_1S0 8 = &H2& '/* 11.025 kHz,
Stereo, 8-bit
Private Const WAVE_FORMAT_1M1 6 = &H4& '/* 11.025 kHz,
Mono, 16-bit
Private Const WAVE_FORMAT_1S1 6 = &H8& '/* 11.025 kHz,
Stereo, 16-bit
Private Const WAVE_FORMAT_2M0 8 = &H10& '/* 22.05 kHz,
Mono, 8-bit
Private Const WAVE_FORMAT_2S0 8 = &H20& '/* 22.05 kHz,
Stereo, 8-bit
Private Const WAVE_FORMAT_2M1 6 = &H40& '/* 22.05 kHz,
Mono, 16-bit
Private Const WAVE_FORMAT_2S1 6 = &H80& '/* 22.05 kHz,
Stereo, 16-bit
Private Const WAVE_FORMAT_4M0 8 = &H100& '/* 44.1 kHz,
Mono, 8-bit
Private Const WAVE_FORMAT_4S0 8 = &H200& '/* 44.1 kHz,
Stereo, 8-bit
Private Const WAVE_FORMAT_4M1 6 = &H400& '/* 44.1 kHz,
Mono, 16-bit
Private Const WAVE_FORMAT_4S1 6 = &H800& '/* 44.1 kHz,
Stereo, 16-bit

And I tried to add

Private Const WAVE_FORMAT_48M 16 = &H1000& '/* 48 kHz, Mono,
16-bit 01/29/05
Private Const WAVE_FORMAT_96M 16 = &H2000& '/* 96 kHz, Mono,
16-bit 01/29/05

But when I try to access the 48 or 96kHz mode I get
an error message saying "You have no audio input devices!"

Any suggestions?

TIA,

Dave