VB.NET - Error al intentar adquirir un recurso de red.

[kid]

Estoy usando Windows Media Encoder... pero lo que me falta es simple, pero aún no lo puedo lograr.

La idea es...

Al presionar el botón, si está codificando, entonces la codificacion se para. Si está parada la codificación, entonces comienza.

Creo que lo estoy haciendo bien, PERO, me arroja el error... Error al intentar adquirir un recurso de red.

Código:

Private Sub btn_boton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_boton.Click

        Encoder = New WMEncoder
        Dim radio As String = "fmhit"
        Dim archivo As String = "C:\Archivos de programa\Windows Media Components\Encoder\Profiles\MiArchivoConfiguracion.wme"


        If Encoder.RunState = WMENC_ENCODER_STATE.WMENC_ENCODER_RUNNING Then
            'stop encoding 
            Encoder.Stop()
            Label1.Text = "DETENIDO"

        Else

            Dim SrcGrpColl As IWMEncSourceGroupCollection
            Dim SrcGrp As IWMEncSourceGroup
            Dim SrcAud As IWMEncAudioSource

            Dim ProColl As IWMEncProfileCollection
            Dim Pro As IWMEncProfile

            Dim i As Integer

            Encoder.Load(archivo)

            SrcGrpColl = Encoder.SourceGroupCollection

            SrcGrp = SrcGrpColl.Add("GP_1")

            SrcAud = SrcGrp.AddSource(WMENC_SOURCE_TYPE.WMENC_AUDIO)

            Dim Fuente_Audio As String = SrcGrpColl.Item(0).Source(WMENC_SOURCE_TYPE.WMENC_AUDIO, 0).GetInput("InputSource", 0)

            SrcAud.SetInput("Device://" + Fuente_Audio)

            ProColl = Encoder.ProfileCollection

            For i = 0 To ProColl.Count - 1
                If ProColl.Item(i).Name = radio Then
                    Pro = ProColl.Item(i)
                    SrcGrp.Profile = Pro
                    Exit For
                End If
            Next

            Dim brdCst As IWMEncBroadcast
            brdCst = Encoder.Broadcast

            Dim puerto As Integer = brdCst.PortNumber(WMENC_BROADCAST_PROTOCOL.WMENC_PROTOCOL_HTTP)

            brdCst.PortNumber(WMENC_BROADCAST_PROTOCOL.WMENC_PROTOCOL_HTTP) = puerto

            ' ACA ME ARROJA EL ERROR, EN EL METODO ENCODER.START()
            Encoder.Start()
            Label1.Text = "CODIFICANDO"

        End If

    End Sub

Necesito de sus aportes de forma urgente.

Muchas Gracias.

[kid]

Bueno, finalmente me dí cuenta que cada vez que presionaba el botón instanciaba a la clase, y por lo tanto el seteo de la misma volvía a 0.

Asi que puse un if para saber si está instanciado en ese caso sigo, si no está instanciado, entonces la instancio.

Así de simple, pero me quitó mucho tiempo.

Saludos!