AddItem

Previous  Next

---

Adds an item to the collection and returns the index of the item.

Syntax: AddItem (Item As PimItem) As Int32

Example:

'PimCol is a PimCollection object and Appointment is a Appointment object.

Sub Globals

      

End Sub

Sub App_Start

      Form1.Show

      PimCol.New1("Appointments")

      Appointment.New1

      Appointment.CreateNew 'Create new appointment.

      Appointment.Subject = "Lunch"

      Appointment.Duration = 30

      Appointment.ReminderSet = true

      Appointment.Start = DateParse("10/25/2007") + (TimeParse("13:30") mod cTicksPerDay)

      PimCol.AddItem(Appointment.Value)

End Sub