ltmmTVTuner.AvailableTVFormats Example for Visual Basic

Dim lTVFormat As Long
Dim lAvailableTVFormats As Long

If Not ltmmCapture.TVTuner Is Nothing Then
   lAvailableTVFormats = ltmmCapture.TVTuner.AvailableTVFormats
   If lAvailableTVFormats = 0 Then
      MsgBox "No analog video available"
   Else
      lTVFormat = ltmmCapture.TVTuner.TVFormat
   End If
End If