That will close all your open form even if they are not MDI Child

This seems to work alow better:

Do While Forms.Count > 1
Unload Forms(1)
Loop