GetInfoDS Example for Visual Basic

Private Sub DSInfo_Click()
    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)
    MsgBox "Class: " & szClass & Chr(10) & Chr(13) & "Flags: " & szFlags
    Exit Sub
INFODSERROR:
    MsgBox "Error"
End Sub