Private Sub l_DoubleClick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
        If l.SelectedItems.Count > 0 Then
            Dim a As Object
            a = l.SelectedItems(0).ImageIndex
            Select Case a
                Case 0
                    l.SelectedItems(0).ImageIndex = 1
                Case 1
                    l.SelectedItems(0).ImageIndex = 0
                Case 2
                Case Else
 
            End Select
        End If
    End Sub