GetInfoDS Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestGetInfoDS()
   Dim szClass As String
   Dim szFlags As String

   LEADDICOM1.EnableMethodErrors = True
   On Error GoTo INFODSERROR
   LEADDICOM1.GetInfoDS()
   LEADDICOM1.FindClassIOD(LEADDICOM1.InfoClass)
   szClass = LEADDICOM1.CurrentIOD.Name
   szFlags = Hex(LEADDICOM1.InfoFlags)
   MessageBox.Show("Class: " & szClass & Chr(10) & Chr(13) & "Flags: " & szFlags)
   Exit Sub

INFODSERROR:
   MessageBox.Show("Error")

End Sub