Public Sub CreateSignalData()
        Dim t As Double         ' aktuelle Zeit
        Dim tStep As Double     ' Schrittweite für Zeit
        Dim w1 As Double        ' Kreisfrequenz linker Kanal    
        Dim w2 As Double        ' Kriesfrequenz rechter Kanal
        Dim nSamples As Integer ' gesamte Sample-Anzahl
        Dim A As Double = 10    ' Amplitude
        Dim Phi As Double       ' Phasenverschriebung
        Dim i As Integer
        Dim aStep As Double     ' Schrittweite für Amplitude
        Dim x As Double
 
        nSamples = CInt(Duration * SamplesPerSecond)
        tStep = 1 / SamplesPerSecond
 
        w1 = myFreq_1 * Pi2
        w2 = myFreq_2 * Pi2
        Phi = Phaseshift * Pi2 / 360
 
        ReDim SoundData(nSamples + 10)
 
 
 
            aStep = 1 / SamplesPerSecond
            For i = 11 To nSamples + 10
                SoundData(i) = CInt(65536 * CInt(A * Math.Sin(w1 * t)) + A * _
                  Math.Sin(w2 * t + Phi))
                t = t + tStep
            Next
 
 
        Call SetHeader(nSamples * 4)
 
End Sub
 
Private Sub SetHeader(ByVal nBytes As Long)
        Blockalign = CShort(Channels * BitsPerSample / 8)
        SoundData(0) = 1179011410   ' Riff
        SoundData(1) = CInt(nBytes + 36)  ' Länge
        SoundData(2) = 1163280727   ' Wave
        SoundData(3) = 544501094    ' fmt
        SoundData(4) = 16           ' immer 16 (auch bei 8 Bit-Sound)
        SoundData(5) = Channels * 65536 + 1 ' 65536 verschiebt einen Kanal um 
        ' 16 Bit nach links
        SoundData(6) = SamplesPerSecond
        SoundData(7) = SamplesPerSecond * Blockalign
        SoundData(8) = BitsPerSample * 65536 + Blockalign
        SoundData(9) = 1635017060   ' "DATA"
        SoundData(10) = CInt(nBytes)      ' Datenlänge in Byte
    End Sub

Private myFreqStream As New IO.MemoryStream
Private myStreamWriter As New IO.BinaryWriter(Me.myFreqStream)
 
Public ReadOnly Property FreqStream() As IO.Stream
        Get
            Me.myFreqStream.Position = 0
            For i As Integer = Me.SoundData.GetLowerBound(0) To _
              Me.SoundData.GetUpperBound(0)
                Me.myStreamWriter.Write(SoundData(i))
            Next
            Return Me.myFreqStream
        End Get
    End Property

Public Class Player
    Private WithEvents Player As New System.Media.SoundPlayer()
 
    Public WriteOnly Property AudioData() As IO.Stream
        Set(ByVal value As IO.Stream)
            value.Position = 0
            Me.Player.Stream = value
        End Set
    End Property
 
    Public Sub StartPlay()
        Me.Player.Play()
 
    End Sub
 
    Public Sub StopPlay()
        Me.Player.Stop()
    End Sub
 
 
End Class