Calendar view date selection

in a custom calendar view in an application i want to populate my form with the date I selected, not select if again.

How do I get that data?

Subject: date not populating…

Sub Regiondoubleclick(Source As Notesuiview) Dim w As New NotesUIWorkspace

Dim db As NotesDatabase

Dim newDoc As NotesDocument



Set db = source.view.Parent

Set newDoc = New NotesDocument( db )



  'Assign values to all fields that you want to have the default value when the doc opens:

newDoc.Form = "Event" 'this is important, if you don't know open in Notes client the Document properties of one of existing docs, go to second tab and you'll see all field names and values



newDoc.EventDate = source.CalendarDateTime

  '...

’ Call newDoc.Save( True, False )

Call w.EditDocument( True, newDoc, False, "", False, False )

End Sub