Problemas na minha edição de registro

[peculio]

olá a todos tenho uma rotina onde eu dou um clique e aperto o botão editar cadastro.

porem após isto ele só mostra o ultimo registro da minha listview o que seria e como posso resolver?

Sub INSERIR_REGISTRO_NA_FORM_DE_AGENDAMENTO()

Dim X As Integer
Dim LINHA As Integer

For X = 1 To Me.LISTA_AGENDAMENTOS.ListItems.Count
If Me.LISTA_AGENDAMENTOS.ListItems.Item(X).Checked Then

'RETORNA OS VALORES PARA CAIXA DE TEXTO DO FORMULARIO DE AGENDAMENTO

Me.MATRICULA = Me.LISTA_AGENDAMENTOS.ListItems.Item(X)
Me.NOME = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(1)
Me.TextBox1 = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(2)
Me.NOME_DOCUMENTO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(3)
Me.DATA_TRANSITO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(4)
Me.HORARIOAGENDADO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(5)
Me.OBSERVAÇÕES = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(6)
Me.DESTINO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(7)
Me.MOTORISTA = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(10)
Me.VEICULO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(11)
Me.TextBox3 = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(12)
Me.TextBox4 = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(13)
Me.USUARIO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(14)
Me.SETOR = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(15)


End If

Next X


End Sub