Ghost Selection

[Gary108]

Hello,


In my application I have a Listview Control and I have written the code to move list items either up or down in the list. Also, the item being moved remains highlighted as it goes up or down. That part works fine,... almost. The only glitch in the system is that when I move the list item up, it leaves an outline of a selection on the last row of my list. It remains there regardless of which row is highlighted.

I do not know why it is there but I want to get rid of it without losing the functionality of my buttons that move a selected list item up or down on the list. Can anyone help me?


My up button code is as follows:

 
'Defines Variables
        Dim strDepartment As String
        strDepartment = txtDepartment.Text
 
        Dim strCatagory As String
        strCatagory = txtCatagory.Text
 
 
        'Determines Index
        Dim Index As Integer
        Index = ListView1.SelectedIndices(0)
 
        'Remove ListView Row
        ListView1.Items.Remove(ListView1.SelectedItems(0))
 
        'Inserts Listview Row one level up
        Dim objListItem As ListViewItem
        objListItem = ListView1.Items.Insert(Index - 1, strDepartment)
        objListItem.SubItems.Add(strCatagory)
 
 
 
        'Selects ListView row one UP
        ListView1.Items(Index - 1).Selected = True
        ListView1.Focus()
        SendKeys.Send("{Down}")