Sub mydoevents()
	while 1 do
		DoEvents
		Exit Sub
	Wend
End Sub