require 'phi'
include Phi
require 'com'
form = Form.new
form.show
memo = Memo.new form
memo.align = Phi::AL_CLIENT
obj = Com.new 'Excel.Application'#'Word.Basic'
obj.const_load
Com::CONSTANTS.each do |name, value|
  memo.lines.add "#{name}: #{value}"
end
#obj.ole_methods memo.lines
Phi.mainloop
