void dayView1_NewAppointment(object sender, NewAppointmentEventArgs _
          args)
        {
            Appointment m_Appointment = new Appointment();
 
            m_Appointment.StartDate = args.StartDate;
            m_Appointment.EndDate = args.EndDate;
            m_Appointment.Title = args.Title;
 
            m_Appointments.Add(m_Appointment);
        }

        Private  Sub dayView1_NewAppointment(ByVal sender As Object, ByVal args _
          As NewAppointmentEventArgs)
            Dim m_Appointment As Appointment =  New Appointment() 
 
            m_Appointment.StartDate = args.StartDate
            m_Appointment.EndDate = args.EndDate
            m_Appointment.Title = args.Title
 
            m_Appointments.Add(m_Appointment)
        End Sub

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de