VBA Indsæt et billede i en listbox.

I min database har jeg en kolonne med navnet Eventtype. I denne står enten et 1-tal eller et 2-tal. Når jeg loader informationen ind i min listbox, har jeg følgende kode:

Do While Not .EOF
            Ark4.ListBox1.AddItem
            intTemp = Ark4.ListBox1.ListCount
            If !Eventtype = "1" Then
                Ark4.ListBox1.List(intTemp - 1, 0) = Billede1.jpg
            ElseIf !Eventtype = "2" Then
                Ark4.ListBox1.List(intTemp - 1, 0) = Billede2.jpg
            End If
            ......
i stedet for billede1.jpg, vil jeg gerne have en kode der indsætter et billede i stedet for tallet 1. Det samme gør sig selvfølgelig gældende ved billede2.jpg.

Nogen der har en ide om hvordan det gøres?

På forhånd tak for hjælpen.