VB .NET -  Obtendo imagens em miniaturas de vídeos do YouTube

Você informe a URL de um vídeo do YouTube e o programa VB .NET obtém algumas imagens exibindo-as no formulário Windows Forms.
Parece difícil de fazer, mas não é, com o VB .NET é simples , simples assim...
No exemplo acima a URL do vídeo de apresentação do autódromo de Hungaroring na Hungria.
E no programa VB .NET , uma aplicação Windows Forms exibindo as miniaturas das imagens.
O código é simples, espie...:
Private Sub getThumbailButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles obterImagens.Click
        Dim urlStrPosConsulta As Integer

        'Primeiro encontre o indice da consulta na url ?v=
        'logo depois do sinal de igual você encontra o id do video
        'uma string com 11-caracteres geradas pelo youtbue quando um usuário envia um video
        urlStrPosConsulta = Me.URLYouTube.Text.IndexOf("?v=")

         If urlStrPosConsulta < 0 Then 
              MessageBox.Show("Informe uma URL válida", "Informe URL", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

              Exit Sub
         endif

      Dim PosVideoYouTube As Integer

        PosVideoYouTube = urlStrPosConsulta + 3         'localiza o inicio da posição do ID do video

        Dim youtubeVideoId As String
        'extrai o id do vídeo a partir da url
        youtubeVideoId = Me.URLYouTube.Text.Substring(PosVideoYouTube, 11) 

        Dim UrlMiniaturaPequena As String
        Dim UrlImagemMaior As String
        Dim UrlMiniaturaAlternativa1 As String
        Dim UrlMiniaturaAlternativa2 As String

        'As imagens pode ser visualizadas visitando a url:
        'http://img.youtube.com/vi/<videoid>/default.jpg
        '
        'Apenas substitua o <videoid> com o valor do id do video
        'default.jpg - padrão
        '0.jpg - imagem maior com  (480px x 360px)
        '1.jpg - miniatura Alternativa 
        '3.jpg - miniatura Alternativa 
        UrlMiniaturaPequena = "http://img.youtube.com/vi/" & youtubeVideoId & "/default.jpg"
        UrlImagemMaior = "http://img.youtube.com/vi/" & youtubeVideoId & "/0.jpg"
        UrlMiniaturaAlternativa1 = "http://img.youtube.com/vi/" & youtubeVideoId & "/1.jpg"
        UrlMiniaturaAlternativa2 = "http://img.youtube.com/vi/" & youtubeVideoId & "/3.jpg"

        Me.MiniaturaPequena.Load(UrlMiniaturaPequena)
        Me.ImagemMaior.Load(UrlImagemMaior)
        Me.MiniaturaAlternativa1.Load(UrlMiniaturaAlternativa1)
        Me.MiniaturaAlternativa2.Load(UrlMiniaturaAlternativa2)
    End Sub

 

 
Pegue o programa completo aqui:  MiniaturaVideoYouTube.zip
Eu sei é apenas VB .NET, mas eu gosto... 
Simples, simples assim...
Referências:

José Carlos Macoratti