using System;
using System.Runtime.InteropServices; 
using NetOpenX50;
    
namespace NetOpenXTest
{
    public static class KernelOrnek
    {
        public static void EkModulVar()
        {
            Kernel kernel = new Kernel();
            try
            {
                //////////////////////////////////////////////
                //EkModulVar metoduna gönderilecek   /
                //değer: [0, 254] aralığında                 /
                //olabilir.                                            /
                //////////////////////////////////////////////                
                int EkModulNo = 100;
                var EkModulVar = kernel.get_EkModulVar(EkModulNo);
                if (!EkModulVar)
                    Console.WriteLine("Belirttiğiniz modül yüklü değil.");
            }
            finally
            {
                kernel.FreeNetsisLibrary();
                Marshal.ReleaseComObject(kernel);
            }
        }
    }
}

 using System;
 using System.Runtime.InteropServices;
 using NetOpenX50;
 namespace NetOpenXTest
 {
     public static class KernelOrnek
     {
         public static void GetSirketListesi()
         {
             Kernel kernel = new Kernel();
             SirketList sirketList = default(SirketList);
             try
             {
                 sirketList = kernel.SirketListesi;
                 for (int i = 0; i < sirketList.SirketSayisi; i++)
                 {
                     SirketInfo sirket = sirketList.get_SirketInfo(i);
                     Console.WriteLine("Sirket Adi : {0}, Sirket Yili : {1}", sirket.SirketAdi, sirket.SirketYili);
                 }
             }
             finally
             {
                 Marshal.ReleaseComObject(sirketList);
                 kernel.FreeNetsisLibrary();
                 Marshal.ReleaseComObject(kernel);
             }
         }
     }
 }

Dim Kernel 
Set Kernel = CreateObject("NetOpenX50.Kernel")
MsgBox Kernel.Version
 
Kernel.FreeNetsisLibrary
Kernel = Nil

Dim Sirket
Dim Kernel

Set Kernel = CreateObject("NetopenX50.Kernel")
Set Sirket = Kernel.yeniSirketAktifEXE( NETSISCORE )
'................
'................

Set Sirket = Nothing
Call Kernel.FreeNetsislibrary
Set Kernel = Nothing

Class Procedure Fatura.HataYorumla;
Var
  Kernel      : IKernel;
  Sirket      : ISirket;
  Fatura      : IFatura;
Begin
  Kernel := CoKernel.Create;
  Try
    Try
      Sirket := Kernel.yeniSirket(vtMSSQL, 'vt adı', 'vt kull adı', 'vt kull sifre', 'netsis kull adı', 'netsis kull sifre', sube kodu);
      Fatura := Kernel.yeniFatura(Sirket, ftSFat);      
      Fatura.OkuUst('GecersizFatNo', 'GecersizCariKod');
    Except
      On E: Exception Do
      Begin
        If Assigned(Kernel.SonNetsisHata) Then
          If ( Kernel.SonNetsisHata.Kod = 401 ) Then
            ShowMessage('Fatura bilgileri bulunamadı.');
      End;
    End;
  Finally
    Fatura      := nil;
    Sirket      := nil;
    Kernel.FreeNetsisLibrary;
    Kernel      := nil;
  End;
End;