> >local oShellApp >oShellApp = CreateObject("Shell.Application") >=m.this.AddProperty('oShellApp', m.oShellApp) > >&& in the form use: m.thisform.oShellApp
=m.this.AddProperty('oShellApp', CreateObject("Shell.Application"))