Selecionar item no listview e mostrar no textbox

Boa Noite!

Estou aprendendo a desenvolver um programa em VB.net usando o VisualStudio 2015 e estou com uma dificuldade em fazer essa instrução.

Tenho um ListView onde é carregado os itens do banco de dados e preciso dar uma instrução que o usuário irá seleccionar (Checked) no máximo 3 itens no ListView.

Cada item seleccionado deve ser mostrado em 3 textbox.

Ex: selecionei um item, este irá para o 1º textbox; selecionei um segundo, este irá para o 2º textbox ; selecionei um terceiro item, este irá para o 3º textbox.

Utilizei comandos da seguinte forma:

=============================================================================================

Private Sub mlv1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles mlv1.SelectedIndexChanged
        For I = 0 To mlv1.Items.Count

If mlv1.Items(I).Checked = True Then
                mlblOBJprg1.Text = mlv1.SelectedItems.Item(I).ToString

End If

Next
        mtxtOBJprg1.Text = mlblOBJprg1.Text

mtxtOBJprg2.Text = mlblOBJprg1.Text

mtxtOBJprg3.Text = mlblOBJprg1.Text

End Sub

E em outro coloquei da seguinte forma:

Private Sub mlv1_ItemSelectionChanged(sender As Object, e As ListViewItemSelectionChangedEventArgs) Handles mlv1.ItemSelectionChanged
If mlv1.SelectedItems.Count > 3 Then
e.Item.Selected = False
MsgBox("Selecione apenas 3 itens por etapa", MsgBoxStyle.Information, "AGE")
End If
End Sub

Mas essas instruções não funcionam.

Alguém pode me ajudar e ver onde estou errando.

Agradeço a atenção.