Om jag har ett textfält en knapp och en listbox och skriver ngt ord i textfältet och klickar på knappen så läggs ordet till i listboxen, men om jag fortsätter trycka på knappen så läggs samma ord in igen o igen o igen, jag vill alltså kunna ersätta existerande ord i listboxen. Om det är ngn som förstår hur jag menar =)

Du får loopa igenom listboxen och kolla om ordet redan finns tidigare - då lägger du inte dit det. Något i stil med detta exempel:

<code>
Sub addera(text as string)

dim finns as boolean
dim a as integer

finns = false

For a = 0 to list1.listcount
if list1.list(a) = text then
finns = true
exit for
end if
next

if finns = false then
list1.additem text
end if

End Sub
</code>

/Pelle

Tackar, nu funkar det utmärkt.

En till grej jag är ganska ny inom vb och håller på att leka med en webläsare, när man trycker på Back eller Forward knappen utan att ha besökt en sida, tex precis vid uppstart så blir det ett fel och programmet avslutas. Jag använder mig av

WebBrowser1.GoBack och Forward.

hur löser jag detta?

kolla vad det är för felkod, och skriv i början av proceduren:

On Error goto handler

och längst ner:

handler:
Select Case Err
Case ??? (nummret)
msgBox "Du har inte besökt en websida tidigare",,"Fel"
Resume radnr (/Next)
Case Else
If msgBox("Oväntat fel nr. " & Err & " på rad " & Erl & " inträffade. Fortsätta?", vbYesNo, "Fel") = vbYes Then Resume Next Else End
End Select

mvh
John