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

谢谢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。嘻嘻嘻

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