Alguém te um exemplo de Drag Drop pronto?

Gostaria de arrastar um linha de um grid e coloca-lo no outro grid

Alguem pode me ajudar

nao precisa ser necessariamente um exemplode grid pode ser qualquer um ai eu me viro aqui

Obrigado

Peguei esta dica no próprio VBWeb e funcionou bem

'Crie um form com duas listboxes (List1Origem e List2Destino) e
uma textbox (Text1).

Private Sub Form_Load()
    ' Esconde a textbox
    Text1.Visible = False
    ' Preenche a List1Origem
    List1Origem.AddItem "Ana"
    List1Origem.AddItem "Beatriz"
    List1Origem.AddItem "Carla"
    List1Origem.AddItem "Denise"
    List1Origem.AddItem "Eliane"
    List1Origem.AddItem "Flavia"
    List1Origem.AddItem "Gabriela"
End Sub
Private Sub List1Origem_MouseDown(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
    If List1Origem.Text = "" Then
        Exit Sub    'Não há nada selecionado
    End If
    Text1.Top = Y + List1Origem.Top
    Text1.Left = X + List1Origem.Left
    Text1.Drag
End Sub
Private Sub List2Destino_DragDrop(Source As Control, _
     X As Single, Y As Single)
    On Error GoTo Fim
    List2Destino.AddItem List1Origem.Text
    List1Origem.RemoveItem List1Origem.ListIndex
Fim:
End Sub

 

T+

Rinaldo