[Erel]

The following code works properly:

Sub App_Start
    App.New1
    App.CreateNew
    AppCollection.New1("Appointments")
    App.Start = Now
    App.Duration = 30
    App.Subject = "Test"
    AppCollection.AddItem(App.Value)
End Sub

Maybe some of your values are wrong.