如图，要想让选中的“工笔花鸟”项改变位置，往上移，这个代码该如何写啊，求助高手赐教。谢谢！

MoveItem 方法  
请参阅  
 全部折叠 全部展开  
在列表框中移动一个项到新位置。
ListBox.MoveItem(nItemIndex, nMoveBy)
参数
nItemIndex  
指定要移动的项的当前索引。  
nMoveBy  
指定项将移动至的新位置。正值表示向下移动。负值表示向上移动。

谢谢tlliqi

我在command按钮的click()里写上以下三句
lnListIndex=ThisForm.List2.ListIndex
thisform.list2.MoveItem(lnListIndex,-1)
thisform.Refresh

第一次点击，上移一格，第二次点击，不是继续上移，而是又下移了，第三次点击又上移一格，如此来回摆动，为什么呀？

我自己想出来的土办法：
 lnListIndex=ThisForm.List1.ListIndex
    LOCAL aa,bb
    FOR i = 1 TO THISFORM.list1.ListCount   &&& 对框1中的数据项进行循环
      IF THISFORM.list1.Selected(i)       &&&& 如果框1中有选定的数据项，则
        IF i=1
        ELSE
         aa=thisform.list1.List(i)
         bb=thisform.list1.List(i-1)
         thisform.list1.List(i)=bb
         thisform.list1.List(i-1)=aa
        ENDIF  
      ENDIF
    ENDFOR
   thisform.Refresh

就是不知道如何自动选中上移了一格的那个项？好让第二次点击时再上移

问题解决了，再次感谢tlliqi。嘻嘻嘻

其实不用那么复杂，你只要把那个列表框的MoverBars属性设为.T.就可以了。然后，每个项目前面都有一个移动条，随便你拖着移动条怎么移都行，一行代码都不用写就能做到随心所欲地摆放项目。

试过了，行。
谢谢
看来民间真的有高手