Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strResult As String
Dim appt As New AppointmentWebDav("2/21/2011 14:00:00", "2/21/2011 15:00:00", " Worship Center Event", "This is to remind you a your scheduled event.", "Worship Center", "tonyclayton", "123", "D")