Function CheckLists(oneItem As NotesItem, twoItem As NotesItem) As Integer
	' comparies membership of two lists, returns 1 if match, otherwise 0
	CheckLists = 0
	If (oneItem Is Nothing Or twoItem Is Nothing) Then
		' quit
		Exit Function
	End If
	Forall curOne In oneItem.Values
		Forall curTwo In twoItem.Values
			If ( Strcompare(Cstr(curOne), Cstr(curTwo), 5)=0 ) Then
				' have match, return true
				CheckLists=1
				Exit Function
			End If
		End Forall
	End Forall
	' not match, return 0
	
End Function