主题：CheckedListBox项目连续移动问题

在复选列表框中，移动选中的项目，我用的是

Dim chl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim item As String = chl.SelectedValue
Dim idx As Integer = chl.SelectedIndex
chl.Items.RemoveAt(chl.SelectedIndex)
chl.Items.Insert(idx-1,item) '向上移动

选一次只能移动一位，怎么才能选一次，连续移动