質問なのです。
MSDNのサンプルについてた「Taborder」に、
「複数項目を選択、それを一番上or下まで移動」
ってな機能をつけたいのです。
複数選択はMultiSelect=1or2でいいとして、移動部分がイマイチなのです。

とりあえずコマンドボタンを１コ追加して

Private Sub cmdTop_Click()
Dim i As Integer
Dim iCount As Integer

iCount = 0
With lstTabIndex
For i = (.ListCount - 1) To 0 Step -1
If (.Selected(i) = True) Then
.AddItem .List(i), 0
.RemoveItem i + 1
iCount = iCount + 1
End If
Next i
For i = 0 To (iCount - 1)
.Selected(i) = True
Next i
End With
End Sub

とかやってみたんですが、選択項目が連続していると
順番が入れ替わったりするのです。

どうか教えてほしいのです。