#Region "Decoder/SSRC und WindowState"
 
    Public Shared Function SetSSRC() As String
        Dim Parameter As New Parameter
 
        Parameter.SSRCPar = "--rate 44100 --bits 16 --twopass --normalize" & _
          "--dither 3"
        Return Parameter.SSRCPar
    End Function
 
    Public Shared Function SetMadplay() As String
        Dim Parameter As New Parameter
 
        Parameter.MadplayPar = "-b 24 --replay-gain=audiophile -a -5 -S -v -o" & _
          "wave:"
        Return Parameter.SSRCPar
    End Function
 
    Public Shared Function SetWindowState(ByVal State As ProcessWindowStyle) As _
      ProcessWindowStyle
        Dim Parameter As New Parameter
 
        Parameter.WindowState = State
        Return Parameter.WindowState
    End Function
#End Region
End Class