When I called this function


|tdsuedll0202 VRC B40O c3 cok0
function etiket.bilgileri(domain tcncmp clnt.comp,
domain tcpdno pdno.f,
domain tdilc.loca loca.f,
domain tiqep3 qdlv.f,
domain tcmcs.str30 ack1.f,
domain tcmcs.str30 ack2.f,
domain tcmcs.str30 ack3.f,
domain tcmcs.str30 ack4.f,
domain tcmcs.str1 kalt.f,
domain tcmcs.str10 kdrm.f,
domain tikaln lkln.f,
domain tikaln rkln.f,
domain tikaln mkln.f,
domain tiagir lagr.f,
domain tiagir ragr.f,
domain tiagir magr.f,
ref domain tdltc.clot clot.ack)
{
string err
switch.to.company(clnt.comp)
stpapi.put.field("tiflk0202m001","pdno.f",str$(pdno.f))
stpapi.update( "tiflk0202m001" ,err)
stpapi.put.field("tiflk0202m001","loca.frm",str$(loca.f))
stpapi.put.field("tiflk0202m001","qdlv.frm",str$(qdlv.f))
stpapi.put.field("tiflk0202m001","ack1.frm",str$(ack1.f))
stpapi.put.field("tiflk0202m001","ack2.frm",str$(ack2.f))
stpapi.put.field("tiflk0202m001","ack3.frm",str$(ack3.f))
stpapi.put.field("tiflk0202m001","ack4.frm",str$(ack4.f))
stpapi.put.field("tiflk0202m001","kalt.f",str$(kalt.f))
stpapi.put.field("tiflk0202m001","kdrm.frm",str$(kdrm.f))
stpapi.put.field("tiflk0202m001","lkln.f",str$(lkln.f))
stpapi.put.field("tiflk0202m001","rkln.f",str$(rkln.f))
stpapi.put.field("tiflk0202m001","mkln.f",str$(mkln.f))
stpapi.put.field("tiflk0202m001","lagr.f",str$(lagr.f))
stpapi.put.field("tiflk0202m001","ragr.f",str$(ragr.f))
stpapi.put.field("tiflk0202m001","magr.f",str$(magr.f))
stpapi.update("tiflk0202m001",err)
|err = stpapi
stpapi.continue.process("tiflk0202m001", err)
stpapi.get.field("tiflk0202m001","clot.frm",clot.ack)
stpapi.end.session("tiflk0202m001")
}


Error in CreateInstance(IUnknow*, REFIID, LPVOID*). SendOleEvent timed out.