Das auf
MSDN genannte PeekMessage probierte ich natürlich auch schon, mit diesem kommt aber die Laufzeitfehlermeldung: "
Exception EVariantError im Modul Sortierkino bei [Adresse]. Typkonvertierung von Variant ist ungültig."
Ergänzung: Mit
PeekMessage(msg,0,WM_USER,WM_USER,PM_NOREMOVE)
funktioniert es auch zur Laufzeit.