>>761
' 拡張選択可で、選択項目を上に移動

Private Sub cmdTop_Click()
　　Dim i As Integer
　　Dim iCount As Integer
　　iCount = 0
　　With lstTabIndex
　　　　i = .ListCount - 1
　　　　Do While i > 0
　　　　　　If .Selected(i) = True Then
　　　　　　　　.AddItem .List(i), 0
　　　　　　　　.Selected(0) = True
　　　　　　　　.RemoveItem i + 1
　　　　　　　　iCount = iCount + 1
　　　　　　Else
　　　　　　　　i = i - 1
　　　　　　End If
　　　　　　If i = iCount - 1 Then Exit Do
　　　　Loop
　　End With
End Sub