Jag försöker att ifrån en combobox få över markerad text till en listbox, inga problem, men jag vill inte ha några dubbleter.

Så här försöker jag :
<code>
Private Declare Function SendMessageFind Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal _
lParam As String) As Long
Const WM_USER = &H400
Const LB_ERR = (-1)
Const LB_FINDSTRING = &H18F


Dim Ret As Long
Dim a As String

a = List1.Text
If Len(Text1(0)) = 3 Then

If List1.Index > 0 Then
For Each Text In List1.List'Här vet jag inte hur jag skall skriva
Ret = SendMessageFind(List1.hwnd, LB_FINDSTRING, 0, (a))
If Ret = LB_ERR Then
List1.AddItem Combo4.Text
eInfo.Caption = "Lägger till :" & Combo4.Text
snacka.Speak Combo4.Text
Else
eInfo = "Denna lista finns redan"
snacka.Speak "Oh no"
End If
DoEvents
Next Text 'här vet jag inte heller...
End If
End If
</code>
Jag försöker att modifiera en kod som jag har hittat, men det lyckas inte.
Jag hittade ett bra tips:
http://www.pellesoft.nu/login/tips/t_view4.asp?tid=237

Om jag vill ta bort en tom post i en lista?
list1.removeitim.text?? eller

Hej!
1. Snurra inte igenom Listboxen alls.
SendMessageFind returnerar det Index där träffen finns.
2. Använd LB_FINDSTRINGEXACT = &H1A2 i stället för att hitta exakt träff, alltså din eventuella dublett.
se sidan: http://www.listensoftware.com/listbox.html
.Ola

Tack jag såg ett bra exempel på tips och trix.
Nu har jag ett stora problem.
I denna listbox så fylls det upp med namn.
Det kan vara upp till tre namn, men hur skall jag spara det (gärna med en SQL) i databasen?