SetMutualAuthKeyISCL Example for Visual Basic

Private Type KeyLoHi
  LoValue As Long
  HiValue As Long
End Type

Private Type Key64
  Value As Currency
End Type

Private Sub SetMutualAuthKeyISCL_Click()
   Dim key As Key64
   Dim compKey As KeyLoHi
   ' use a 64 bit key value of 0123456789ABCDEF hex.
   compKey.HiValue = &H1234567
   compKey.LoValue = &H89ABCDEF
   LSet key = compKey
   LEADDICOMNet1.SetMutualAuthKeyISCL LEADDICOMNet1.hNet, 1, key.Value
   LEADDICOMNet1.SetIndexForMutualAuthISCL LEADDICOMNet1.hNet, 1
   MsgBox "Index value is: " & LEADDICOMNet1.GetIndexForMutualAuthISCL (LEADDICOMNet1.hNet)

End Sub