Sub GuvenlikOku()

Dim Kernel As New NetOpenX.Kernel
Dim Guvenlik As NetOpenX.NetGuvenlik

MsgBox guvenlik.GuvenlikSunucusu
MsgBox guvenlik.KurulumTipi
MsgBox guvenlik.LisansSayisi
MsgBox guvenlik.MusteriKodu
MsgBox guvenlik.ProgramListe(1)
MsgBox guvenlik.UrunSurumu
Set Guvenlik = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing
 
End Sub