Private sub cmd_play_click(....)
     Dim x As Un4seen.Bass.DOWNLOADPROC
            x = New Un4seen.Bass.DOWNLOADPROC(AddressOf downproc)
            strm = Bass.BASS_StreamCreateURL( _
              "http://213.168.78.212:8000/stream4", 0, 0, x, 0)
end sub

    Public Sub downproc(ByVal buffer As IntPtr, ByVal length As Integer, ByVal _
      user As Integer)
        GC.KeepAlive(buffer)
        GC.KeepAlive(length)
        GC.KeepAlive(user)
        If buffer = 0 Or chksave.Checked = False Then
            Exit Sub
        Else
            Dim buf(IIf(length, length - 1, 1)) As Byte
            Call CopyMemory(buf(0), buffer, length)
            FilePut(3, buf)
        End If
    End Sub