Usando una API con Visual Basic 6

[Eternal Idol]

Si los parlantes son stereo los dos primeros bytes son los del parlante izquierdo y los dos últimos los del derecho, en este caso estas poniendo 65000 al izquierdo y 0 al derecho.

#define MAKELONG(a, b) ((LONG)(((WORD)((DWORD_PTR)(a) & 0xffff)) | ((DWORD)((WORD)((DWORD_PTR)(b) & 0xffff))) << 16))

Tendrías que conseguir este macro en VB.