If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            lblStatus.Text = "Downloading"
            Dim video = YouTube.Default.GetVideo(txtUrl.Text)
            File.WriteAllBytes(FolderBrowserDialog1.SelectedPath & "\" & _
              video.FullName, video.GetBytes) 
            lblStatus.Text = "Complete"
        End If