GetVRCount Example for Visual Basic

Dim lCount As Long
lCount = LEADDICOM1.GetVRCount
MsgBox "There are " & CStr(lCount) & " VR Items."