ltmmCaptureSubTypes.Count Example for Visual Basic
Dim pVideoCapSubTypes As ltmmCaptureSubTypes
Dim pCapSubType As ltmmCaptureSubType
Dim i As Long
Dim bVar As Boolean
Dim strName, strFriendName As String
Set pVideoCapSubTypes = LTMMCapture.VideoCaptureSubTypes
If pVideoCapSubTypes.count
> 0 Then
For i = 0 To pVideoCapSubTypes.count
Set pCapSubType = pVideoCapSubTypes.Item(i)
If i = 1 Then
strName = pCapSubType.name
strFriendName = pCapSubType.FriendlyName
bVar = pCapSubType.Selected
If bVar = True Then
pCapSubType.Selected
= False
End If
End If
Set pCapSubType = Nothing
Next i
If pVideoCapSubTypes.Selection
<> 1 Then
pVideoCapSubTypes.Selection = pVideoCapSubTypes.Find(strName)
End If
End If
Set pVideoCapSubTypes = Nothing