Public Sub generateSinWav(Freq As Int, Dur As Double, MaxVal As Double, DegreePhaseShift As Int) As Short()
Dim Arr(Dur * SampleRateInHz) As Short
Dim SampleInterval As Double = SampleRateInHz / Freq
For i = 0 To Arr.Length - 1
Dim shift As Double = DegreePhaseShift / 180 * cPI
Dim Angle As Double = (2 * cPI * i + shift) / SampleInterval
Arr(i) = Sin(Angle) * MaxVal
Next
Return Arr
End Sub
Dim L() As Short = generateSinWav(Freq1,Dur,Level1 * 32767, 0)
Dim R() As Short = generateSinWav(Freq2,Dur,Level2 * 32767, 180)