Dim count As Integer = sendbox.Items.Count
Dim i As Integer = 0
 
While i < count
    Dim cur_senboxentry As String = sendbox.Items.Item(i).ToString
    If (cur_senboxentry.StartsWith("sendto")) Then
        GO_SEND_COMMAND(curEntry.Substring(6, cur_senboxentry.Length - 6).Trim( _
          ))
        sendbox.Items.RemoveAt(i)
        count -= 1
    Else
        i += 1
    End If
End While

fg viperbone