GetPeerAuthDataISCL Example for Visual Basic

   Dim buf As Variant
   Dim nLen As Long
   LEADDICOMNet1.GetPeerAuthDataISCL LEADDICOMNet1.hNet, buf, nLen
   MsgBox "1st byte of data = " & buf(0) & ", last byte of data = " & buf(nLen - 1)