Plaatje weergeven bij veranderen listbox

[r3000]

Ik zoek een code waarbij een plaatje wordt weergegeven afhankelijk van de keuze in de listbox.

Bijgaand een voorbeeldjeBekijk bijlage Voorbeeld image.xls

 

[snb]

Vermijd rowsource, maar gebruik list om de listbox te bevolken.

Private Sub ListBox1_Change()
    For j = 1 To 4
        Me("image" & j).Visible = False
    Next
    Me("image" & ListBox1.ListIndex + 1).Visible = True
End Sub

Private Sub UserForm_initialize()
    ListBox1.List = Split("ster|driehoek|vierkant|cirkel", "|")
End Sub

 

[r3000]

Dank je!