ListView: FocusRect entfernen und Focus selber zeichnen

[moritz]

Hallo!

Ich kennt sicher dieses hässliche FocusRect eines TListViews, das entsteht, wenn man ein Item auswählt? Und dieses hässliche Blau,
dass das Item dann bekommt?
Ich such zur Zeit nach einer Möglichkeit, den Rahmen zu entfernen und das ausgewählte Item selber zu malen. Ich bin dabei schon auf so manche Ansatzpunkt gestoßen, wie den Typen PNMLVCUSTOMDRAW oder die Konstanten CDIS_FOCUS und CDIS_SELECTED, allerdings bin ich noch nicht ganz weiter gekommen. Ich habe ein VB-Projekt dazu gefunden, das mir genau dies ausschaltet. Es ist im Anhang.
In der Datei Module1.bas, zwischen Zeile 299 und 325 ist der Code, den ich brauche, allerdings habe ich es noch nicht geschafft, ihn umzusetzen - Beim ersten CopyMemory(@Sender, lNMLVCD, SizeOf(NMLVCD)) steigt die CPU-Auslastung auf 100%
Naja, deswegen meine Frage an euch: Gibt es einen VB-Profi, der mir dabei helfen könnte, oder kennt jemand eine andere Lösung? Freue mich über jeden Ansatzpunk!

Vielen Dank, Moritz