SciLor's Open Source Forums

        Dim client As New GroovesharkClient
        Dim resp As SearchArtist.getSearchArtistResultsResponse = client.SearchArtist("beyoncé", 1000)
        Dim item As SearchArtist.SearchArtistResult = resp.result.result.Item(11)

        Dim stream As New Functions.GetMusicStream(client)

            Dim tempMusic As Groove.Music.GroovesharkAudioStream = grooveClient.GetMusicStream(DownloadResults(SearchItemID).SongID)
            Dim DataRead As Integer
            Dim LoadedData As Integer = 0
            Dim tempBuffer(1023) As Byte
            If IO.Directory.Exists(IO.Path.GetDirectoryName(tempFileName)) = False Then
                IO.Directory.CreateDirectory(IO.Path.GetDirectoryName(tempFileName))
            End If
            Dim tempFile As New IO.FileStream(tempFileName, IO.FileMode.Create)

            pgbCurrentDownload.Value = 0
            pgbCurrentDownload.Maximum = tempMusic.Length
            Do Until tempMusic.Length = LoadedData
                DataRead = tempMusic.Stream.Read(tempBuffer, 0, tempBuffer.Length)
                tempFile.Write(tempBuffer, 0, DataRead)
                LoadedData += DataRead
                pgbCurrentDownload.Value = LoadedData
                Application.DoEvents()
            Loop