Msflexgrid Drag and drop

[sebastianarroyo]

Hola, tengo un problema....
estoy utilizando en mi aplicacion 3 msflexgri, los cuales hacen drag an drop entre si.
el problema es que uno contiene 5 columas menos que los otros. y yo necesti que este ultimo ( el de 5) se llene con los datos de alguno de los 2 restante.
Ejemplo:

msflex 1: A,B,C,D,E,F,G,H,I,J
msflex 2: A,B,C,D,E,F,G,H,I,J
msflex 3: A,B,C,D,E

si realizo D&D entre el 1 y 2 o esta todo ok.
Pero si ralizo D&D entre el 1 y el 3, hay 5 columnas que me sobran.

Este es mi codigo



Private Sub MSFlexGrid1_OLEStartDrag(index As Integer, Data As MSFlexGridLib.DataObject, AllowedEffects As Long)
MSFlexGrid1(index).RowSel = MSFlexGrid1(index).Row
MSFlexGrid1(index).Col = 0
MSFlexGrid1(index).ColSel = MSFlexGrid1(index).Cols - 1
AllowedEffects = vbDropEffectCopy
Data.SetData MSFlexGrid1(index).Clip, 1
End Sub

teroricamente dentro de data estoy guardando todo lo que contiene mi primer msflexgrid


Private Sub MSFlexGrid1_OLEDragDrop(index As Integer, Data As MSFlexGridLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
MSFlexGrid1(index).AddItem Data.GetData(1)
Screen.MousePointer = 1
End Sub


y aqui devuelvo con data el contenido.
Ahora. como hago para acomodar el contenido que tengo en este data a mi gusto para poder utilizarlo en el msflexgrid 3 que tiene menos columnas.

Graicas.
Sebatian
[/code]