move data listview from listview1 to listview2 or opposite

berikut contoh membuat select data dari 2 buah list view.
data di pilih satu satu atau all data dan di pindah kekanan / kiri










----------------------
Private Sub cmdkanan_Click()
Dim k, t
If ListView1.ListItems.Count = 0 Then
MsgBox "Daftar dosen sudah habis !", vbCritical + vbOKOnly, "PERINGATAN"
Else
t = ListView1.SelectedItem.Text
k = ListView1.SelectedItem.Index
ListView1.ListItems.Remove (k)
ListView1.Refresh

Set List2 = ListView2.ListItems.Add(, , t)

Cmdkiri.Enabled = True
Cmdkirisemua.Enabled = True
If ListView1.ListItems.Count = 0 Then
cmdkanan.Enabled = False
Cmdkanansemua.Enabled = False
End If
End If
Call cmdlanjut_Click
End Sub

---------------------------------------
Private Sub Cmdkanansemua_Click()
Dim i, t
If ListView1.ListItems.Count = 0 Then
MsgBox "Daftar dosen sudah habis !", vbCritical + vbOKOnly, "PERINGATAN"
Else
For i = 1 To ListView1.ListItems.Count
t = ListView1.ListItems.Item(i)
Set List2 = ListView2.ListItems.Add(, , t)
Next i
ListView1.ListItems.Clear
cmdkanan.Enabled = False
Cmdkanansemua.Enabled = False
Cmdkiri.Enabled = True
Cmdkirisemua.Enabled = True
End If
Call cmdlanjut_Click
End Sub

------------------------------------

Private Sub Cmdkiri_Click()
Dim k, t
If ListView2.ListItems.Count = 0 Then
MsgBox "Daftar dosen sudah habis !", vbCritical + vbOKOnly, "PERINGATAN"
Else
t = ListView2.SelectedItem.Text
k = ListView2.SelectedItem.Index
ListView2.ListItems.Remove (k)
ListView2.Refresh

Set List1 = ListView1.ListItems.Add(, , t)
cmdkanan.Enabled = True
Cmdkanansemua.Enabled = True
If ListView2.ListItems.Count = 0 Then
Cmdkiri.Enabled = False
Cmdkirisemua.Enabled = False
End If
End If
Call cmdlanjut_Click
End Sub

---------------------------------

Private Sub Cmdkirisemua_Click()
Dim i, t
If ListView2.ListItems.Count = 0 Then
MsgBox "Daftar dosen sudah habis !", vbCritical + vbOKOnly, "PERINGATAN"
Else
For i = 1 To ListView2.ListItems.Count
t = ListView2.ListItems.Item(i)
Set List1 = ListView1.ListItems.Add(, , t)
Next i
ListView2.ListItems.Clear
cmdkanan.Enabled = True
Cmdkanansemua.Enabled = True
Cmdkiri.Enabled = False
Cmdkirisemua.Enabled = False
End If
Call cmdlanjut_Click
End Sub