Anybody familar with TimeSoft ExplorerListView

Any body familar with TimeSoft ExplorerListView?
If Not, this is a free unicode supported listview.

I can't figure out how to remove selected item from the list :(
Anybody please help, i will be very very thanksfull...

same as listview

Code:

---

Private Sub Command1_Click()
Dim i As Integer
  For i = 0 To List1.ListItems.Count - 1
      If List1.ListItems.Item(i).Selected Then
        Debug.Print "Current Selected Item  is #" & i & " (List1.ListItems.Item(" & i & ")"
        List1.ListItems.Remove i
        Exit Sub
      End If
  Next
End Sub

---

OMG i have to go through loop to know which item is selected?
Isn't there any builtin function?

no you dont there is a builtinfunction

try using

Code:

---

List1.AnchorItem.Index

'Example

Private Sub Command1_Click()
On Error GoTo Error_No_Selection
MsgBox "Selected Item is Item(" & List1.AnchorItem.Index & ")"

Error_No_Selection:
MsgBox "Error, please make a selection first!"
End Sub

---

user the anchoritem

Code:

---

Private Sub Command1_Click()
On Error GoTo Error_No_Selection
MsgBox "Selected Item is Item(" & List1.AnchorItem.Index & ")"

Error_No_Selection:
MsgBox "Error, please make a selection first!"
End Sub

---