Option Explicit
 
Dim volR As Long
Dim volL As Long
Dim volume As Long
Dim mute As MIXERCONTROL
Dim unmute As MIXERCONTROL
Dim ONOFF As MIXERCONTROL
Dim hmixer As Long             ' mixer handle
Dim VolCtrl As MIXERCONTROL    ' master volume control
Dim WavCtrl As MIXERCONTROL    ' wave output volume control
Dim CDVol As MIXERCONTROL      ' CD Volume
Dim LineVol As MIXERCONTROL    ' Line/In Volume
Dim MICROPHONE As MIXERCONTROL ' Microphone Volume
Dim PCSPEAKER As MIXERCONTROL    ' PcSpeaker Volume
Dim AUXVol As MIXERCONTROL     ' Auxillary Volume
Dim TELEPHONE As MIXERCONTROL     ' TAD-In Volume
Dim MIDIVol As MIXERCONTROL    ' Midi Volume
Dim I25InVol As MIXERCONTROL   ' I25In Volume
Dim Treble As MIXERCONTROL
Dim Bass As MIXERCONTROL
Dim rc As Long                 ' return code
Dim ok As Boolean              ' boolean return code
 
Private Sub Form_Load()
 'WAVE-Balance zentrieren.
 rc = mixerOpen(hmixer, 0, 0, 0, 0)
 ok = GetMixerControl(hmixer, MIXERLINE_COMPONENTTYPE_SRC_WAVEDSVol, _
   MIXERCONTROL_CONTROLTYPE_VOLUME, WavCtrl)
 SetPANControl hmixer, WavCtrl, "54300", "54300"
 
End Sub