sub objektiLoomine
  dim obj as object
  obj=createUnoService("com.sun.star.frame.Desktop")
  msgbox obj.dbg_properties
end sub

sub objektiAndmed
Dim Doc As Object
Dim Sheet As Object
Doc = StarDesktop.CurrentComponent
Sheet = Doc. Sheets (0)
msgbox sheet.dbg_properties
end sub