NAME Open WINDOWCOMPAT
IMPORTS  wpsexts.SwitchToObject

