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