' Gambas class file
'Contacts will represent the collection of records for the addr book
Public Contacts As Collection
'represents a single contact record used by all subroutines
Public ContactRecord As Contact
'index that points to the current record
Public RecordPointer As Integer
'we will need a string var to use when the user searches by lastname
Public SearchKey As String

Public Sub DoFind()
'declare a contact object for local use
Dim MyContactRecord As Contact
'instantiate it
'set the record pointer to the first record in the collection
RecordPointer = 1
'for debug only
Print "In DoFind with: " & SearchKey
'use FOR EACH to iterate through each object in the collection
For Each MyContactRecord In Contacts
'assign each temp record to our global contact object
  ContactRecord = Contacts[CStr(RecordPointer)]
'if the last name matches search key, update the form and leave
  If ContactRecord.LastName = SearchKey Then
'for debug only
    Print "Found: " & MyContactRecord.LastName
'now update the form
    UpdateForm
    Break 'force return with this statement
  Endif
'no match so we increment the record pointer and move to the next
  Inc RecordPointer
Next
End