isimi çözdüm, ihtiyaçi olanlar için;

Dim Kernel

Dim Sirket

Dim Fatura

Dim Basim

Set Kernel =CreateObject("NetOpenX50.Kernel")

Set Sirket =Kernel.yeniSirket(vtMSSQL, "SIRKET", "TEMELSET","", "ORHAN", "INN", 10)

Set Basim =Kernel.yeniBasim(Sirket)

CallBasim.FaturaBasimDizaynNo(FTIRSIP, FATURANO, "CARIKOD", DIZAYN_NO)

Kernel.FreeNetsisLibrary

Set Kernel = Nothing

Set Sirket = Nothing

Set Fatura = Nothing

Set Basim = NothinG