IncludeVolatile Example for Visual Basic

Dim nRet As Integer
    
    LEADDICOM1.EnableMethodErrors = False
    'list all elements
    LEADDICOM1.IncludeVolatile = True
    nRet = LEADDICOM1.MoveFirstElement(False)
    While (nRet = 0)
        List1.AddItem CStr(LEADDICOM1.CurrentElement.Tag)
        nRet = LEADDICOM1.MoveNextElement(False)
    Wend
    MsgBox "Element Count = " & CStr(List1.ListCount)
    'list only non-volatile elements
    LEADDICOM1.IncludeVolatile = False
    nRet = LEADDICOM1.MoveFirstElement (False)
    While (nRet = 0)
        List2.AddItem CStr(LEADDICOM1.CurrentElement.Tag)
        nRet = LEADDICOM1.MoveNextElement(False)
    Wend

    MsgBox "Non Volatile Element Count = " & CStr(List2.ListCount)