' Having an IltmmProcessor object, pProc: Dim lType As Long lType = pProc.Type If lType <> ltmmProcessorType_LEAD_Video
' do something
End If