pic1 = Mid(txtTalk(i), Len(txtTalk(i)) - 9, 5) ' pic1 = "rek1" i det här fallet
pic2 = Mid(txtTalk(i), Len(txtTalk(i)) - 4, 5) ' pic2 = "rek2"

Trim (pic1)
Trim (pic2)

Image4.Picture = ImageList3.ListImages(pic1).Picture
Image4.Picture = ImageList3.ListImages(pic2).Picture

Varför funkar inte det där? "Element not found"

men det här funkar:

pic1 = "rek1"
Image4.Picture = Imagelist3.Listimages(pic1).Picture

Vad är skillnaden att plocka ut en del av en sträng till en annan variabel och sen köra i en Imagelist som key mot att själv fylla variabeln och sen köra den som en key... ?

MVH David

Det ska inte vara någon skillnad, så sannolikt så är det något fel med strängen där istället.
1. Har du deklarerat alla strängar som strängar?
("Dim pic1 As String ...")
2. Har du kollat så att det verkligen står exakt "rek1" i strängen?
Kolla med Len(pic1), så att den verkligen är 4.

Hittade felet nu... kontrollerade och Trim(pic1) tog inte bort ett blanksteg i början av strängen...
Rättade ändå till det, det var jag som hade börjat plocka från fel ställe i mid() funktionen

tack ändå

/ David

Funktionen Trim tar bort blanksteg i slutet av en sträng. Vill du ta bort dem från början av strängen använder du LTrim.

/Janne