DragReorderRows...item drops to the bottom of the list

Getting Started
1

I have a listbox. I am trying to DragReorderRows.
However, every time I move an item to a new position, it automatically drops to be the last position.
I have checked the LBtest; it works fine; but not mine

  • DragReorderRaws:

for i as integer = 0 to me.ListCount -1
me.cellTag(i,1) = i+1
next

me.Invalidate

  • ListboxOpen:

Me.ColumnAlignment(0)=ListBox.AlignLeft
Me.ColumnType(0)=ListBox.TypeEditableTextField

Me.AcceptTextDrop

me.EnableDragReorder = true

I donot have ‘CellTextPaint’

Thank you in advance for any suggestions or guidance.

2

Are-you on Windows ?

Did you try a Listbox without any code in it ?