VS 2010 Fill combox by list and classe

Hi
I have to comboxen on the form

In the first i whant to see the titel of the book the write and its it a roman detective
That works.
But how can i get in the second combox only the genre roman, detective

that is the code to fill the first combox and to make the list
If IsNothing(LijstBoeken) Then
LijstBoeken = New List(Of Boek)({
New Boek("B1", "A1", Boek.genre.Detective),
New Boek("B2", "A2 ", Boek.genre.Detective),
New Boek("B3", "A3", Boek.genre.Fictie),
New Boek("B4", "A4", Boek.genre.Fictie),
New Boek("B5", "A5", Boek.genre.Roman),
New Boek("B6", "A6", Boek.genre.Roman),
New Boek("B7", "A6", Boek.genre.Detective),
New Boek("B8", "A8", Boek.genre.Fictie),
New Boek("B9", "A9", Boek.genre.Roman),
New Boek("B10", "a10", Boek.genre.Detective)})

End If

''Vullen van de CmboBoeken
For Each boek In LijstBoeken
CmboBoeken.Items.Add(boek)
Next

And for Fill the second comobox but how can i change the code so the genre is visible one time en not for each book

For Each t In LijstBoeken


'Dim x As String = String.Format((t).ToonGenre)
CmboOntlener.Items.Add(String.Format((t).ToonGenre))
Next