Dim channel As Long
Dim channelmin As Long
Dim channelmax As Long
Dim found As Long
If Not ltmmCapture.TVTuner Is Nothing Then
channelmin = ltmmCapture.TVTuner.ChannelMin
channelmax = ltmmCapture.TVTuner.ChannelMax
For channel = channelmin To channelmax
found = 0
found = ltmmCapture.TVTuner.AutoTune (channel)
If found = 1 Then
MsgBox "Found"
End If
Next channel
ltmmCapture.TVTuner.StoreAutoTune
End If