OK JOBnik!!
I find the error!!
The error "overflow" flag me when i start wmalive and cast togeter; so, the problem is in the cast example-I post a part of code :
Static updatelisten As Integer
updatelisten = updatelisten + 1
If ((updatelisten Mod 100) = 0) Then ' only checking once every 5 seconds
Dim stats As String, listeners As Integer, t As Integer
listeners = 0
stats = VBStrFromAnsiPtr(BASS_Encode_CastGetStats(encoder, BASS_ENCODE_STATS_ICE, vbNullString))
the error is that not "listeners = 0", but "updatelisten = 0" !!!
I hope that my bad english be understood!

BYe!