lbKontakte.DataSource = dvKontakte
        lbKontakte.DisplayMember = "Datum"
        lbKontakte.ValueMember = "IDKontakt"
        AddHandler Me.lbKontakte.DataBindings.Add("SelectedItem", dvKontakte, _
          "Datum").Format, AddressOf Format

    Private Sub Format(ByVal sender As Object, ByVal e As ConvertEventArgs)
        e.Value = DateTime.Parse(e.Value).ToString("dd.MM.yyyy HH:mm")
    End Sub

If it was hard to code, it should be hard to read too.