Private Sub TrckbarVolOton_Scroll(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TrckbarVolOton.Scroll
        Dim LblOtonVolText As Integer
        SetVolume(TrckbarVolOton.Value, PlayOTon)
        LblOtonVolText = TrckbarVolOton.Value / 10 'Tausend ist das Maximale, 
        ' angezeigt werden soll Lautstärke in schritten 0 bis 100
        LblOtonVol.Text = LblOtonVolText
    End Sub
 
 
    Private Sub TrckbarVolStudent_Scroll(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles TrckBarVolStudent.Scroll
        Dim LblStudentVolText As Integer
        SetVolume(TrckBarVolStudent.Value, PlayStudent)
        LblStudentVolText = TrckBarVolStudent.Value / 10 'auch hier wieder auf 
        ' Lautstärkeausgabeformat 0-100 bringen
        LblStudentVol.Text = LblStudentVolText
    End Sub

Public Function SetVolume(ByVal TrckBarValue As Long, ByVal OtonOrStudi As _
  Mci.Abspielen.Audio)
        OtonOrStudi.SetVolume(TrckBarValue)
        Return True
    End Function

Public Function SetVolume(ByVal volume As Long) As Boolean
            Return Core.MciCommand("setaudio " & m_AliasName & " volume to " & _
              volume.ToString, m_LastErrorCode)
 
        End Function
 
Hat jemand vl erfahrungen mit MCI oder nen tipp was da los sein könnte?
 
Verwirrt mich stark das die funktion mit der einen funktion will, und mit der _
  anderen nicht

- Signaturen werden nur von Weicheiern ausgef?llt -