Attribute VB_Name = "Module1"
Option Explicit

Public Const NCBNAMSZ As Long = 16

Public Const NCBACTION = &H77
Public Const NCBADDGRNAME = &H36
Public Const NCBADDNAME = &H30
Public Const NCBCALL = &H10
Public Const NCBCANCEL = &H35
Public Const NCBCHAINSEND = &H17
Public Const NCBCHAINSENDNA = &H72
Public Const NCBDELNAME = &H31
Public Const NCBDGRECV = &H21
Public Const NCBDGRECVBC = &H23
Public Const NCBDGSEND = &H20
Public Const NCBDGSENDBC = &H22
Public Const NCBENUM = &H37
Public Const NCBFINDNAME = &H78
Public Const NCBHANGUP = &H12
Public Const NCBLANSTALERT = &H73
Public Const NCBLISTEN = &H11
Public Const NCBRECV = &H15
Public Const NCBRECVANY = &H16
Public Const NCBSEND = &H14
Public Const NCBSENDNA = &H71
Public Const NCBSSTAT = &H34
Public Const NCBTRACE = &H79
Public Const NCBUNLINK = &H70
Public Const NCBASTAT = &H33
Public Const NCBRESET = &H32

Public Type NET_CONTROL_BLOCK 'NCB
   ncb_command As Byte
   ncb_retcode As Byte
   ncb_lsn As Byte
   ncb_num As Byte
   ncb_buffer As Long
   ncb_length As Integer
   ncb_callname As String * NCBNAMSZ
   ncb_name As String * NCBNAMSZ
   ncb_rto As Byte
   ncb_sto As Byte
   ncb_post As Long
   ncb_lana_num As Byte
   ncb_cmd_cplt As Byte
   ncb_reserve(9) As Byte ' Reserved, must be 0
   ncb_event As Long
End Type
Public Type ADAPTER_STATUS
   adapter_address(5) As Byte
   rev_major As Byte
   reserved0 As Byte
   adapter_type As Byte
   rev_minor As Byte
   duration As Integer
   frmr_recv As Integer
   frmr_xmit As Integer
   iframe_recv_err As Integer
   xmit_aborts As Integer
   xmit_success As Long
   recv_success As Long
   iframe_xmit_err As Integer
   recv_buff_unavail As Integer
   t1_timeouts As Integer
   ti_timeouts As Integer
   Reserved1 As Long
   free_ncbs As Integer
   max_cfg_ncbs As Integer
   max_ncbs As Integer
   xmit_buf_unavail As Integer
   max_dgram_size As Integer
   pending_sess As Integer
   max_cfg_sess As Integer
   max_sess As Integer
   max_sess_pkt_size As Integer
   name_count As Integer
End Type
Public Type NAME_BUFFER
    name1(15)       As Byte
    name_num        As Byte
    name_flags      As Byte
End Type
Public Type ASTAT
   adapt As ADAPTER_STATUS
   NameBuff(30) As NAME_BUFFER
End Type

Public Const MAX_LANA = 254

Type LANA_ENUM
    Length As Byte
    Lana(MAX_LANA) As Byte
End Type

Declare Function htons Lib "wsock32.dll" _
        (ByVal a As Integer) As Integer

Public Declare Function Netbios Lib "netapi32.dll" _
        (pncb As NET_CONTROL_BLOCK) As Byte

Public Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" _
        (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)