Tienes dos formas de hacerlo:
a). Usando un treeview y un command
Al treeview coloca la propiedad checkboxes=true
Private Sub Command1_Click()
'Recorro el listado para ver si hay algun nodo marcado
For i = 1 To Lista.Nodes.Count
If Lista.Nodes(i).Checked = True Then
'Obtengo la clave original, ya que lo habiamos agregado un caracter C al inicio
sClave = Mid(Lista.Nodes(i).Key, 2, Len(Lista.Nodes(i).Key) - 1)
sTexto = Trim(Lista.Nodes(i).Text)
'Aqui colocas el codigo para guardar el registro marcado
End If
Next i
End Sub
Private Sub Form_Load()
For i = 1 To 10
'Las claves del treeview tienen que comenzar con un caracter
Clave = "C" & i 'Aqui lo puedes reemplazar por su codigo unico que identifique a la persona
Texto = "Posicion " & i 'Aqui puedes poner el nombre de la persona
'Insertamos el nodo
Set Nodo = Lista.Nodes.Add(, , Clave, Texto)
Next i
End Sub
b). la otra forma es usa dos treeview (uno de origen y otro de destino) y botones de traspaso que permiten mover uno nodo de un treeview a otro.
Si quieres este ejemplo, ya que es mas largo, escribeme a
jose_arriagada@hotmail.com
