Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal wDeviceID As Integer, _
  ByVal volR As Integer, ByVal volL As Integer) as integer

 Public Function SetVolumeStudent(ByVal VolumeWert As Integer, ByVal Muted As _
   Boolean)
        Const MinVolume As Integer = 0      'Minimallautstärke
        Const MaxVolume As Integer = 15000  'Maximallautstärke, Werte von API 
        ' vorgegeben
        Dim a As Integer = 0
        Dim b As Integer = 0
 
        If VolumeWert < MinVolume Then
            VolumeWert = MinVolume
        ElseIf VolumeWert > MaxVolume Then
            VolumeWert = MaxVolume
        End If
 
        If Muted = True Then
            SaveMuteValue = VolumeWert
            waveOutSetVolume(a, VolumeWert, b)
 
        Else
            waveOutSetVolume(a, VolumeWert, b)
 
        End If
        Return True
    End Function

- Signaturen werden nur von Weicheiern ausgef?llt -