Wieso erzeugst du eine Form und wieso das doppelte DoEvents? Nur mal zwei Gedanken zur Verbesserung.