Public Class Form1
     'Ich hab mal den Windows-Form-Designer code weggelassen!
    Public stream As New Mp3Stream("64.236.34.196", "80", "/stream/1039")
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        AddHandler stream.StreamConnected, AddressOf onStreamConnected
        AddHandler stream.TrackChanged, AddressOf onTrackChanged
        stream.StartRecording("C:\test.mp3")
        MsgBox(stream.Recording)
    End Sub
 
    Sub onStreamConnected(ByVal sender As Mp3Stream)
        MsgBox(sender.CurrentStream.icy_name)
    End Sub
    Public Sub onTrackChanged(ByVal sender As Mp3Stream, ByVal newTrack As _
      Mp3Stream.Track)
        MsgBox(newTrack.Title)
    End Sub
End Class