Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As _
  System.EventArgs) Handles MyBase.Load
With VScroll1
           .Maximum = 32768
           .LargeChange = 1000
            .Minimum = -32768
            .Value = 0
 
End With
 
With VScroll2
            .Maximum = 32768
            .LargeChange = 1000
            .Minimum = -32768
            .Value = 0
End With   
End sub
 
 Private Sub VScroll1_Scroll(ByVal sender As System.Object, ByVal e As _
   System.Windows.Forms.ScrollEventArgs) Handles VScroll1.Scroll
        Dim x As Integer
        Dim s1, s2 As VScrollBar
        Dim intLeft As Short
        Dim intRight As Short
 
        Dim lngVolume As Integer
 
        s1 = VScroll1
        s2 = VScroll2
        x = s1.Value
        s2.Value = x
 
        intLeft = CShort("&H" & Hex((-1 * CInt(VScroll2.Value)) + 32767))
        intRight = CShort("&H" & Hex((-1 * CInt(VScroll1.Value)) + 32767))
 
        'Setzen des linken Kanals
        lngVolume = lngVolume Or (intLeft * 2 ^ 16) 'um 2 Byte nach links 
        ' verschieben
 
        'Setzen des rechten Kanals
        lngVolume = lngVolume Or intRight
 
        'Lautstärke einstellen
        Call waveOutSetVolume(0, lngVolume)
 
    End Sub
 
    Private Sub VScroll2_Scroll(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.ScrollEventArgs) Handles VScroll2.Scroll
        Dim x As Integer
        Dim s1, s2 As VScrollBar
        Dim intLeft As Short
        Dim intRight As Short
 
        Dim lngVolume As Integer
 
        s2 = VScroll1
        s1 = VScroll2
        x = s1.Value
        s2.Value = x
 
        intLeft = CShort("&H" & Hex((-1 * CInt(VScroll2.Value)) + 32767))
        intRight = CShort("&H" & Hex((-1 * CInt(VScroll1.Value)) + 32767))
 
        'Setzen des linken Kanals
        lngVolume = lngVolume Or (intLeft * 2 ^ 16) 'um 2 Byte nach links 
        ' verschieben
 
        'Setzen des rechten Kanals
        lngVolume = lngVolume Or intRight
 
        'Lautstärke einstellen
        Call waveOutSetVolume(0, lngVolume)
 
    End Sub

Ich hasse es, wenn etwas nicht Funktioniert!!!!