GetVRCount Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestGetVRCount ( )
   Dim lCount As Integer
   lCount = LEADDICOM1.GetVRCount
   MessageBox.Show("There are " & CStr(lCount) & " VR Items.")
End Sub