CaptureGetResourceCount Example for Visual Basic

Dim nCount As Integer

        nCount = 0

        'are there any icons in the file?
        LEADRasterScr1.CaptureGetResourceCount "c:\win98\calc.exe", SCR_CAP_ICON
        nCount = LEADRasterScr1.CaptureResourceCount
        If (nCount < 1) Then
            MsgBox "No Icons!"
        End If