strm = Bass.BASS_StreamCreateURL("http://213.168.78.212:8000/stream4", 0, 0, _
  AddressOf downproc, 0)
            Bass.BASS_ChannelPlay(strm, True)
 
[...]
    Public Shared Sub downproc(ByVal buffer As IntPtr, ByVal length As Integer, _
      ByVal user As Integer)
        On Error Resume Next
        If buffer = 0 Or My.Forms.frm_main.chksave.Checked = False Then
            FileClose(3)
        Else
            Dim buf(IIf(length, length - 1, 1)) As Byte
            Call CopyMemory(buf(0), buffer, length)
            FilePut(3, buf)
        End If
    End Sub

Für den von der Garbage Collection gesammelten Delegaten vom Typ _
  "Bass.Net!Un4seen.Bass.DOWNLOADPROC::Invoke" wurde ein Rückruf durchgeführt. _
  Dies kann Anwendungsabstürze, Datenbeschädigung und -verlust zur Folge haben. _
  Beim Übergeben von Delegaten an nicht verwalteten Code müssen die Delegaten _
  von der verwalteten Anwendung beibehalten werden, bis sichergestellt ist, _
  dass sie nie aufgerufen werden.