MoveFirstUID Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
'This example uses the predefined variable "Text1" of type "TextBox" from ".NET Framework".
'This example uses the predefined variable "Text2" of type "TextBox" from ".NET Framework".
Private Sub TestMoveFirstUID()
   LEADDICOM1.EnableMethodErrors = True

On Error GoTo MOVEUIDERROR

   LEADDICOM1.MoveFirstUID()
   'display the items information
   Text1.Text = LEADDICOM1.CurrentUID.Code
   Text2.Text = LEADDICOM1.CurrentUID.Name
   MessageBox.Show("wait")

   LEADDICOM1.MoveNextUID()
   'display the items information
   Text1.Text = LEADDICOM1.CurrentUID.Code
   Text2.Text = LEADDICOM1.CurrentUID.Name
   MessageBox.Show("wait")

   LEADDICOM1.MoveLastUID()
   'display the items information
   Text1.Text = LEADDICOM1.CurrentUID.Code
   Text2.Text = LEADDICOM1.CurrentUID.Name
   MessageBox.Show("wait")

   LEADDICOM1.MovePrevUID()
   'display the items information
   Text1.Text = LEADDICOM1.CurrentUID.Code
   Text2.Text = LEADDICOM1.CurrentUID.Name
   MessageBox.Show("wait")

MOVEUIDERROR:

End Sub