If General.lstFinish.Size>0 Then
streamerP.Initialize("stream", Starter.mSampleRate, Starter.mMono, Starter.mBitRate, streamerP.VOLUME_MUSIC)
streamerP.StartPlaying
i=0
For Each b() As Byte In General.lstFinish
s=i*shag
scvS.ScrollPosition=s
If i>0 Then scvS.Panel.GetView(i-1).Color=Colors.White
scvS.Panel.GetView(i).Color=Colors.Green
streamerP.Write(b)
i=i+1
Next
streamerP.Write(Null) 'when this "message" will be processed, the player will stop.
End If