Försöker göra ett enkelt program för att titta på digitala tv kanaler med hjälp av msvidectl.

Min kod än så länge:

Option Explicit
Private Const clsBDATuners = "{71985F4B-1CA1-11d3-9CC8-00C04F7971E0}"
Dim mobjTSContainer As New SystemTuningSpaces
Dim objTuningspace As DVBTuningSpace
Dim objTuneRequest As IDVBTuneRequest
Dim Locator As New DVBTLocator

Private Sub Form_Load()
    Set objTuningspace = mobjTSContainer("DVB-T")
    Set objTuneRequest = objTuningspace.CreateTuneRequest
                     
    With Locator
        .Bandwidth = 8
        .CarrierFrequency = 570000
        .Modulation = BDA_MOD_64QAM
    End With
     
    With objTuneRequest
        .Locator = Locator
        .ONID = 32766
        .TSID = 1
        .SID = 29       ' TVB J2
    End With
    
    With Me.MSVidCtl1
        .InputActive = Me.MSVidCtl1.InputsAvailable(clsBDATuners).Item(0)
        .Stop
        .View objTuneRequest
        .Build
        .Run
    End With
End Sub