MoveRootIOD Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestMoveRootIOD()
   LEADDICOM1.EnableMethodErrors = True

On Error GoTo MOVEIODERROR

   'Move to the Root IOD
   LEADDICOM1.MoveRootIOD()
   MessageBox.Show(LEADDICOM1.CurrentIOD.Name)

   'Move to the first Child IOD
   LEADDICOM1.MoveChildIOD()
   MessageBox.Show(LEADDICOM1.CurrentIOD.Name)

   'Move back to the Parent IOD
   LEADDICOM1.MoveParentIOD()
   MessageBox.Show(LEADDICOM1.CurrentIOD.Name)

   Exit Sub

MOVEIODERROR:
   MessageBox.Show("Error")

End Sub