'Arealist code
Private Sub AreaList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AreaList.SelectedIndexChanged
ProcessGrid.DataMember = AreaList.GetItemText(AreaList.SelectedItem)
Dim selectedIndex As Integer = AreaList.SelectedIndex
ListUp.Enabled = selectedIndex <> -1 AndAlso selectedIndex > 0
ListDown.Enabled = selectedIndex <> -1 AndAlso selectedIndex < AreaList.Items.Count - 1
End Sub
Private Sub MoveSelectedItem(ByVal increment As Integer)
Dim selectedIndex As Integer = AreaList.SelectedItem + increment
Dim selectedItem As Object = AreaList.SelectedItem
AreaList.Items.Remove(selectedItem)
AreaList.Items.Insert(selectedIndex, selectedItem)
AreaList.SelectedIndex = selectedIndex
End Sub
Private Sub ListDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListDown.Click
MoveSelectedItem(1)
End Sub
Private Sub ListUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListUp.Click
MoveSelectedItem(-1)
End Sub