Ayuda Insertar canal justin.tv en VB

[wirelesswifi]

Buenas, estoy tratando de insertar un canal de justin en VB.

Eh insertado el componente "Shockwave Flash"

Pero me da un error el canal de justin.tv con codigo 1337 en el video:

Código [Seleccionar] Expandir

Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)

With ShockwaveFlash1
.FlashVars = "channel=hdtv_channels1&auto_play=false&start_volume=25"
.Movie = "http://www.justin.tv/widgets/live_embed_player.swf"
.MovieData = "http://www.justin.tv/widgets/live_embed_player.swf?channel=hdtv_channels1"
.AllowFullScreen = "true"
.AllowScriptAccess = "always"
.AllowNetworking = "all"

End With

End Sub

Saludos.

[wirelesswifi]

Alguien sabe?.