Hi I have a listview that has data loaded onto itself. If a user selects a few items and clicks the ok button I want it to add each selected item into a database. I have this code:

Dim i, j As Integer
Dim strSendTo As String
Dim ShellX As String

strSendTo = ""
LsvEmail.SelectedItem.Text Then
For i = 1 To LsvEmail.ListItems.Count - 1
If LsvEmail.SelectedItem.Text = LsvEmail.ListItems(i).Text Then
strSendTo = strSendTo + LsvEmail.ListItems(i).Text + ";"
End If
Next
If strSendTo = "" Then
MsgBox "Please reselect your Emailing Client as you have not yet selected one."
Exit Sub
End If

strSendTo = Left(strSendTo, Len(strSendTo) - 1)

ShellX = "start mailto:" + strSendTo
Shell ShellX


Now this works to a point. The line :
If LsvEmail.SelectedItem.Text = LsvEmail.ListItems(i).Text Then
is a problem because it just sits at the first selecteditem. How can I move on to the next selecteditem in a listview?

Any help would be appreciated and thanx in advance.

Mike