ltmmTVTuner.Channel Example for Visual Basic

Dim channel As Long
Dim lVideoSubChangle As Long
Dim lAudioSubChangle As Long
Dim lVideoFrequency As Long
Dim lAudioFrequency As Long
If Not ltmmCapture.TVTuner Is Nothing Then
   channel = ltmmCapture.TVTuner.Channel
   ltmmCapture.TVTuner.SetChannel channel, ltmmTUNER_SUBCHAN_DEFAULT, ltmmTUNER_SUBCHAN_DEFAULT
   lVideoSubChangle  = ltmmCapture.TVTuner.VideoSubChannel
   lAudioSubChangle = ltmmCapture.TVTuner.AudioSubChannel
   lVideoFrequency = ltmmCapture.TVTuner.VideoFrequency
   lAudioFrequency = ltmmCapture.TVTuner.AudioFrequency
End If