Sub Get_Following_Live()
Dim getlivefollowingClient As New System.Net.WebClient
        getlivefollowingClient.Headers.Add("Accept", "application/vnd.twitchtv.v2+json")
        getlivefollowingClient.Headers.Add("Authorization", "OAuth " + My.Settings.authkey)
        Dim streamlist As New JObject
        Try
            Dim result As String = getlivefollowingClient.DownloadString("https://api.twitch.tv/kraken/streams/followed?limit=100")
            RichTextBox1.AppendText(result)
            streamlist = JsonConvert.DeserializeObject(result)
            For x As Integer = 0 To streamlist.Item("streams").Count - 1
                ListView1.BeginUpdate()
                Dim li As ListViewItem
                li = ListView1.Items.Add(streamlist.Item("streams").Item(x).Item("channel").Item("name").ToString)
                li.SubItems.Add(streamlist.Item("streams").Item(x).Item("viewers").ToString)
                li.SubItems.Add(streamlist.Item("streams").Item(x).Item("channel").Item("game").ToString)
                li.SubItems.Add(streamlist.Item("streams").Item(x).Item("channel").Item("status").ToString)
                li.SubItems.Add(streamlist.Item("streams").Item(x).Item("broadcaster").ToString)
                ListView1.EndUpdate()
                ListView1.Update()
                ListView2.BeginUpdate()
                Dim li2 As ListViewItem
                li2 = ListView2.Items.Add(streamlist.Item("streams").Item(x).Item("channel").Item("name").ToString)
                li2.SubItems.Add(streamlist.Item("streams").Item(x).Item("preview").ToString)
                li2.SubItems.Add(streamlist.Item("streams").Item(x).Item("channel").Item("logo").ToString)
                li2.SubItems.Add(streamlist.Item("streams").Item(x).Item("channel").Item("url").ToString.Replace("www", My.Settings.locale))
                ListView2.EndUpdate()
                ListView2.Update()
            Next
        Catch ex As Exception
            If ex.ToString.Contains("(503)") Then
                MsgBox("503 - Server unavailable. Try again soon.")
            ElseIf ex.ToString.Contains("(502)") Then
                MsgBox("502 - Gateway Error. Try again soon.")
            ElseIf ex.ToString.Contains("(401)") Then
                MsgBox("401 Unauthorized - Authentication Error. Request a new Token in Settings!")
            Else
                MsgBox(ex.ToString)
            End If
        End Try
End Sub