VBA Indsæt et billede i en listbox.

Jeg har en database med nogle oplysninger om nogle events, logget fra en maskine. Første information er et 1-tal eller et 2-tal, som bestemmer eventtypen. Alt denne information hentes ind i en listbox i excel med koden:

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
            ...............

Jeg vil i stedet for billede1.jpg gerne have en kode, som indsætter et billede, når der i kolonnen Eventtype står et 1-tal. Hvordan skal en sådan kode se ud?

På forhånd tak for hjælpen.