MoveFirstUID Example for Visual Basic

Private Sub Command10_Click()
    LEADDICOM1.EnableMethodErrors = True
On Error GoTo MOVEUIDERROR
    LEADDICOM1.MoveFirstUID
    'display the items information
    Text1.Text = LEADDICOM1.CurrentUID.Code
    Text2.Text = LEADDICOM1.CurrentUID.Name
    MsgBox "wait"
    
    LEADDICOM1.MoveNextUID
    'display the items information
    Text1.Text = LEADDICOM1.CurrentUID.Code
    Text2.Text = LEADDICOM1.CurrentUID.Name
    MsgBox "wait"
    
    LEADDICOM1.MoveLastUID
    'display the items information
    Text1.Text = LEADDICOM1.CurrentUID.Code
    Text2.Text = LEADDICOM1.CurrentUID.Name
    MsgBox "wait"
    
    LEADDICOM1.MovePrevUID
    'display the items information
    Text1.Text = LEADDICOM1.CurrentUID.Code
    Text2.Text = LEADDICOM1.CurrentUID.Name
    MsgBox "wait"
MOVEUIDERROR:
End Sub