ListViewItem Class

//2 image listen aanmaken (small icons, large icons)
//linken aan properties ListView

Public Class frmTest

    Private Sub frmTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plantenGroepenInladen()
        plantenInladenLST()
        plantenInladenLVI()
    End Sub

    Private Sub plantenGroepenInladen()
        For Each item As PlantType In PlantType.GetPlantTypes
            Dim oGroep As ListViewGroup = New ListViewGroup(item.Id, item.Naam)
            lsvPlanten.Groups.Add(oGroep)
        Next
    End Sub

    Private Sub plantenInladenLST()
        Dim planten As New List(Of String)
        For Each p As Plant In Plant.GetPlanten
            planten.Add(p.Naam)
        Next
        lstPlanten.Items.AddRange(planten.ToArray)
    End Sub

    Private Sub plantenInladenLVI()
        For Each plant As Plant In plant.GetPlanten
            Dim oItem = New ListViewItem(plant.Naam, getKleur(plant))
            oItem.Group = lsvPlanten.Groups.Item(plant.PlantTypeId)
            oItem.SubItems.Add(plant.Voorraad)
            oItem.SubItems.Add(plant.MinVoorraad)
            lsvPlanten.Items.Add(oItem)
        Next
    End Sub

    Private Function getKleur(ByVal plant As Plant) As Integer
        Dim cijfer As Integer = 0
        If plant.MinVoorraad > plant.Voorraad Then
            cijfer = 1
        Else
            cijfer = 0
        End If
        Return cijfer
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        lsvPlanten.View = View.Details
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        lsvPlanten.View = View.List
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        lsvPlanten.View = View.LargeIcon
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        lsvPlanten.View = View.SmallIcon
    End Sub
End Class

Public Class Programma
    Implements IComparable(Of Programma) 'voor de compare to

    Private msNaam As String
    Private mdTijdStip As Date
    Private msZender As String

    Public Sub New(ByVal sNaam As String, ByVal dTijdStip As Date, ByVal sZender As String)
        Me.msNaam = sNaam
        Me.mdTijdStip = dTijdStip
        Me.msZender = sZender
    End Sub

    Public Property Naam() As String
        Get
            Return msNaam
        End Get
        Set(ByVal value As String)
            msNaam = value
        End Set
    End Property

    Public Property TijdStip() As Date
        Get
            Return mdTijdStip
        End Get
        Set(ByVal value As Date)
            mdTijdStip = value
        End Set
    End Property

    Public Property Zender() As String
        Get
            Return msZender
        End Get
        Set(ByVal value As String)
            msZender = value
        End Set
    End Property

    Public Overrides Function Equals(ByVal obj As Object) As Boolean
        'Er moet een ander object zijn
        If obj Is Nothing Then Return False
        'Het ander object moet van zelfde type zijn
        If Not TypeOf (obj) Is Programma Then Return False
        'Gelijk als de tijdstippen gelijk zijn
        Dim oAnderProgramma As Programma
        oAnderProgramma = CType(obj, Programma)
        Return Me.TijdStip.Equals(oAnderProgramma.TijdStip)
    End Function

    Public Overrides Function GetHashCode() As Integer
        Return Me.TijdStip.GetHashCode()
    End Function

    Public Function CompareTo(ByVal other As Programma) As Integer Implements System.IComparable(Of Programma).CompareTo
        If other Is Nothing Then Return 0
        If Me.Zender = other.Zender Then
            Return Me.Zender.CompareTo(other.Zender)
        Else
            Return Me.TijdStip.CompareTo(other.TijdStip)
        End If

    End Function

    Public Overrides Function ToString() As String
        Return String.Format("{0} | {1} | {2}", Naam, Zender, TijdStip.Date & " " & TijdStip.Hour & ":" & TijdStip.Minute)
    End Function

End Class

Public Class frmCollecties

    'ditionory definiëren
    Private programmas As Dictionary(Of Date, ProgrammaLijst)

    Private Sub frmCollecties_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'dictionary object aanmaken en referentie in variabele bewaren
        programmas = New Dictionary(Of Date, ProgrammaLijst)()

        dateTimePickerInstellen()

    End Sub

    Private Sub dateTimePickerInstellen()

        'formaten van de "DateTimePickers" instellen
        dtpDateTimePicker1.CustomFormat = "dd/MM/yy - HH:mm"
        dtpDateTimePicker1.Format = DateTimePickerFormat.Custom

        dtpDateTimePicker.CustomFormat = "dd/MM/yy"
        dtpDateTimePicker.Format = DateTimePickerFormat.Custom

    End Sub

    Private Sub btnToeveogen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToeveogen.Click

        'zijn de tekstvakken ingevuld?
        If txtNaam.Text <> "" And txtZender.Text <> "" Then
            programmaToevoegen()
        Else
            MessageBox.Show("je hebt de form niet volledig ingevuld", "waarschuwing", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If

    End Sub

    Private Sub programmaToevoegen()

        'programma toevoegen die je hebt opgegeven
        Dim oProgramma As ProgrammaLijst
        oProgramma = New ProgrammaLijst(txtNaam.Text, dtpDateTimePicker1.Value.Date & " " & dtpDateTimePicker1.Value.Hour & ":" & dtpDateTimePicker1.Value.Minute, txtZender.Text)

        'voordat we het programma toevoegen testen als het tijdstip noet niet bezet is
        Dim test As Boolean
        test = controledubbels(oProgramma)

        If test = True Then
            programmas.Add(oProgramma.TijdStip, oProgramma)
        Else
            MessageBox.Show("dit tijdstip is al bezet", "waarschuwing", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If


        Console.WriteLine("aantal programma's in dictionary: " & programmas.Count)

        opkuis()
        updateLijstButton(oProgramma)

    End Sub

    Private Sub opkuis()

        txtNaam.Clear()
        txtZender.Clear()

    End Sub
    Private Sub updateLijstButton(ByVal oProgramma As ProgrammaLijst)

        'alle waarden overlopen in de directory (en uitprinten in de console) [controle]
        Console.WriteLine("GEGEVENS IN DIRECTORY")
        For Each oPaar As KeyValuePair(Of Date, ProgrammaLijst) In programmas
            Console.WriteLine(oPaar.Key & " - " & oPaar.Value.ToString)
        Next

        'programma toevoegen aan listbox als het tijstip (datum) p klop in de "dtpDateTimPicker"
        Dim oProgramma1 As ProgrammaLijst
        oProgramma1 = programmas.Item(oProgramma.TijdStip)

        'voordat we het programma toevoegen testen als het tijdstip noet niet bezet is
        Dim test As Boolean
        test = controledubbels(oProgramma1)

        If test = True Then
            If oProgramma1.TijdStip.Date = dtpDateTimePicker.Value.Date Then
                lbProgrammas.Items.Add(oProgramma1)
            End If
        End If



        'sorteren lijst programma's in listbox
        sorteren()


    End Sub

    Private Sub dtpDateTimePicker_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpDateTimePicker.ValueChanged
        updateLijst()
    End Sub

    Private Sub updateLijst()
        'listbox uitkuisen
        lbProgrammas.Items.Clear()

        'alle waarden overlopen in de directory (en uitprinten in de console) [controle]
        Console.WriteLine("GEGEVENS IN DIRECTORY")
        For Each oPaar As KeyValuePair(Of Date, ProgrammaLijst) In programmas
            Console.WriteLine(oPaar.Key & " - " & oPaar.Value.ToString)

            'als de "dtpDateTimePicker" op de juiste dag staat de gegevens toevoegen in de listbox
            If oPaar.Key.Date = dtpDateTimePicker.Value.Date Then
                lbProgrammas.Items.Add(oPaar.Value)
            End If

        Next

        'sorteren lijst programma's in listbox
        sorteren()

    End Sub

    Private Sub sorteren()
        Dim programmasInLijst As List(Of Programma)
        programmasInLijst = New List(Of Programma)
        For Each item In lbProgrammas.Items
            programmasInLijst.Add(item)
        Next

        programmasInLijst.Sort()

        lbProgrammas.Items.Clear()

        For Each item In programmasInLijst
            lbProgrammas.Items.Add(item)
        Next
    End Sub

    Private Function controledubbels(ByVal oProgramma As ProgrammaLijst) As Boolean
        Dim programmasInLijst As List(Of Programma)
        programmasInLijst = New List(Of Programma)
        For Each item In lbProgrammas.Items
            programmasInLijst.Add(item)
        Next

        Dim test As Boolean
        If programmasInLijst.Count > 0 Then
            For Each item In programmasInLijst
                If oProgramma.TijdStip.Equals(item.TijdStip) Then
                    test = False
                Else
                    test = True
                End If
            Next
        Else
            Return True
        End If

        Return test

    End Function
End Class

Watch out for the indices.
ListView Items are zero-based.
SubItems are 1-based.