Visual Basic 6 - Ricerca nella listbox

ciao a tutti, per la serie "le mie ricerche" ecco un altra domandina

se io ho una listbox con un numero casuale di elementi (anche gli elementi sono casuali, io non prevedo nulla), come faccio a controllare se è presente un elemento all'interno della lista?

tipo se io ho ListBox1 :

a
b
c
d
e
...

come faccio a implementare una funzione che mi restituisca come valore "True" se è presente "b" e "False" se non è presente?? piu o meno cosi:

dim x as boolean
x = "elemento in questione"
if x "è presente nella lista then"
x = true
else
x = false
end if
msgbox x

ciao a tutti e grazie mille per le eventuali risposte
ciaaoo

scusate il doppio post ma ho risolto con un semplice ciclo for :

Dim VariabileBoolean As Boolean
x = -1
For a = 1 To List1.ListCount
x = x + 1
If List1.List(x) = "k" Then
MsgBox "Vero"
End If
Next

Te lo giuro la stessa cosa che ti stavo per dire

LOL mi è venuto in mente ripensando al suggerimento di "ricerca nella stringa", che risolvetti appunto con un ciclo for (sempre usando la funzione InStr)

looool

lol tt risolto quindi!

Ciao , ho seguito passo passo le tue indicazioni , avevo , ANZI HO il tuo stesso problema , di seguito ho riportato un codici di prova per la ricerca di un elemento )denominato cometa) nella list box , ma non gira . come mai ??

saresti cosi' gentile , visto che mi sto affaccaiando solo ora(ma con molta passione) al VB di propormi un esempio "finito" o , eventualmente correggere il mio ?
grazie mille


Private Sub cmdprova_Click()
Dim x As Boolean
x = -1
For a = 1 To List1.ListCount
x = x + 1
If List1.List(x) = "cometa" Then
MsgBox "vero"
End If
Next
End Sub

In effetti, ambedue i codici, sono da correggere ...

Quello corretto e'

  Dim i As Long
  For i = 0 To List1.ListCount - 1
    If List1.List(i) = "cometa" Then
      MsgBox "vero"
    End If
  Next i

beh grazie che non va, se tu dichiari x come boolean non puoi pretendere che il programma ti faccia x + 1, perke è una variabile logica... correggi e vedi che ti va lol