jpdillingham

Dim Tags as TagGroup
Dim TagsInError as StringList
Dim Result as boolean
Dim ReadReasult as Integer
Dim Timeout as Long

' set timeout limit to now + 15 seconds
Timeout = Timer + 15

Set Tags = CreateTagGroup(Me.AreaName)