rimuovere utente

[muteblaster]

salve ragazzi....
sto' sviluppando un piccolo programmino di chat e mi sono arenato su un problema su come si possa rimuovere un elemento da una list box.....

vi posto il mio codice

Private Sub Command1_Click()
 For i = (List1.ListCount - 1) To 0 Step -1
      If InStr(List1.List(i), Text1.Text) <> 0 Then
        List1.RemoveItem i 'rimuoviamo l'utente'
      End If
  Next
  Text1.Text = ""
End Sub

scrivo il nome manualmente sul text e faccio rimuovi lui lo rimuove ma nel modo sbagliato.....io ho usato la funzione instr che mi individua tutte le lettere del file di testo.....

morale della favola....se io ho due nomi simili es. mario....marioo scelgo di eliminare mario e mi elimina entrambi.....io vorrei trovare un modo per eliminare mario e basta e non tutte le parole che al loro interno contengano mario.....

vi allego il progettino riguardante la listbox.....

saluti

 

[muteblaster]

trovato il modo nella maniera piuu' stupida, mi son scervellato per nulla....

soluzione....

Private Sub Command1_Click()
 For I = (List1.ListCount - 1) To 0 Step -1
      If List1.List(I) = Text1.Text Then
         List1.RemoveItem I 'rimuoviamo l'utente'
      End If
  Next
  Text1.Text = ""
End Sub