Se eu entendi, você quer dar um duplo clique na lista1 e passar o registro que você clicou para a lista2. É isso? Eu uso dessa maneira.

 

Private Sub List1_DblClick()
    If List1.ListItems.Count = 0 Then
        Exit Sub
    End If
    List2.ListItems.Add , , List1.SelectedItem.Text
    For i = 1 To List1.SelectedItem.ListSubItems.Count
        List2.ListItems(List2.ListItems.Count).SubItems(i) = List1.SelectedItem.ListSubItems(i).Text
    Next

    ' aqui, se você quiser remover o registro da lista1, se não quiser, não digite essa linha
    List1.ListItems.Remove (List1.SelectedItem.Index)
End Sub

Espero ter ajudado.

 

Até mais.