SetCurrentElement example for Visual Basic

Private Sub DSDeleteModule_Click()
    Dim lCount As Long
    
    LEADDICOM1.EnableMethodErrors = False
    'get total number of images in this Data Set
    LEADDICOM1.SetCurrentElement 0
    lCount = LEADDICOM1.GetBitmapCount
    MsgBox "Total: " & CStr(lCount)
    'move to last image tag in the Data Set
    LEADDICOM1.FindLastElement TAG_PIXEL_DATA, False
    'get total number of images in this tag
    lCount = LEADDICOM1.GetBitmapCount
    MsgBox "This tag: " & CStr(lCount)
End Sub