Dragdrop

[BrunoVeríssimo]

É algo bem simples....

Crie dois ListBox, um com nome de LstOrigem e outro como LstDestino.

Crie um Label e renomeie por LblItem e deixe como Visible=False...

Vamos ao código...

Private Sub LstOrigem_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    'COPIA O ITEM SELECIONADO PARA O LABEL
    Me.LblDrag.Caption = Me.LstOrigem.Text 

    ' FAZ O EFEITO DO DRAG COM O LABEL
    Me.LblDrag.Top = Y + Me.LstOrigem.Top  
    Me.LblDrag.Left = X + Me.LstOrigem.Left

    'ATIVA O DRAG
    Me.LblDrag.Drag
    
End Sub

Private Sub LstDestino_DragDrop(Source As Control, X As Single, Y As Single)

    'QUANDO você SOLTAR O MAUSE DENTRO DO LIST DE DESTINO, ELE ADICIONA AO LIST O ITEM
    Me.LstDestino.AddItem (Me.LblDrag.Caption)

    'REMOVE O ITEM DE LIST DE ORIGEM
    Me.LstOrigem.RemoveItem (Me.LstOrigem.ListIndex)
        
End Sub

Pronto....sem dificuldades...e muito prático ^^