Kofax DM API - Manual (Page 106)

86 C HAPTER 3
PCDPropertyList
For i = 1 To nTotalElements
nResult = _
ValueForm.oValueFormProps. AddProperty ( _
oGlobalPropertyList. GetCurrentPropertyName (),
oGlobalPropertyList. GetCurrentPropertyValue ())
nResult = oGlobalPropertyList. NextProperty ()
Next i
ValueForm.Show
End Sub
'During the form load, a series of performance
'metadata elements are being loaded into the
'Property list.
Private Sub Form_Load()
Dim nResult As Long
Dim vPropValue As Variant
vPropValue = 85
'Load CPU metadata.
nResult = oGlobalPropertyList. AddProperty ( _
"CPU", vPropValue)
'If successful, then load the Memory metadata.
If nResult = 0 Then
vPropValue = 512100
nResult = oGlobalPropertyList. AddProperty ( _
"Memory", vPropValue)
'If successful, then load the Table Locks
'metadata
If nResult = 0 Then
vPropValue = 125
nResult = _