SetEncryptKeyISCL 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 SetEncryptKeyISCL_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.SetEncryptKeyISCL LEADDICOMNet1.hNet, 1, key.Value
   LEADDICOMNet1.SetIndexForEncryptISCL LEADDICOMNet1.hNet, 1
   MsgBox "Index value is: " & LEADDICOMNet1.GetIndexForEncryptISCL(LEADDICOMNet1.hNet)
End Sub