The following example illustrates the use of the
HashVal property.
#INCLUDE "windows.inc"
#INCLUDE "scrrun.inc"
DIM pDic AS IDictionary
DIM vKey AS VARIANT
DIM vItem AS VARIANT
DIM vHashVal AS VARIANT
' Create an instance of the Dictionaty object
pDic = NEWCOM "Scripting.Dictionary"
' Add some key/item pairs to the dictionary
vKey = "a" : vItem = "Athens"
pDic.Add vKey, vItem
vKey = "b" : vItem = "Belgrade"
pDic.Add vKey, vItem
vKey = "c" : vItem = "Cairo"
pDic.Add vKey, vItem
' Get the hash value of the "c" key
vKey = "c"
vHasVal = pDic.HashVal(vKey)