Close all open maps.mmbas

Sub Main If MsgBox "This will close all open documents without saving them,vbokcancel)=vbOK then		For Each doc In Documents			doc.Close		Next	End If End Sub