GetPeerAuthDataISCL Example for VB.NET

'This example uses the predefined variable "LEADDICOMNet1" of type "LEADDicomNet" from "LEADTOOLS Toolkit".
Private Sub TestGetPeerAuthDataISCL ( )
   Dim buf As Object
   Dim nLen As Integer
   LEADDICOMNet1.GetPeerAuthDataISCL(LEADDICOMNet1.hNet, buf, nLen)

   MessageBox.Show("1st byte of data = " & buf(0) & ", last byte of data = " & buf(nLen - 1))
End Sub