VB - PeekMessage; TranslateMessage; DispatchMessage

Hallo,

ich benötige einen Tipp zur VB-Programmierung.
Manchmal hat man das Problem, dass z.B. Schleifen sehr lange laufen können und der User dann einige Zeit vor einer scheinbar "toten" Anwendung sitzt und keine Eingaben machen kann.

In der Programmiersprache C++ könnte man dann z.B den folgenden Quelltext in die entsprechende Schleife einbauen, um Windows etwas "Luft" zu lassen, seine Messages zu verarbeiten.

TMsg Msg;
if (PeekMessage(Msg, 0, 0, 0, PM_REMOVE)&& Msg.Message != WM_QUIT) // Nachricht holen
{ TranslateMessage(Msg);// Nachricht formatieren
DispatchMessage(Msg); // Nachricht verarbeiten
}

Kann mir jemand sagen, ob und wie sich der oben angefürte Quelltext auch in VB (als Excel-Macro) umsetzen lässt? (- bin kein VB-Programmierer)

MfG JB

Unter VB gibts "DoEvents" oder so ähnlich

ja - Danke!

Das scheint es zu sein.
- leider kann ich es im Momoent nicht gleich ausprobieren