data:h_lblvw type ole2_object.
if h_lblvw is initial.
create object h_lblvw 'Lblvw.Application'.
set property of h_lblvw 'Visible' = 0 no flush.
endif.
data:h_lblvw type ole2_object.
if h_lblvw is initial.
create object h_lblvw 'Lblvw.Application'.
set property of h_lblvw 'Visible' = 0 no flush.
endif.