 |
 |
 |
 |
|
 |
 |
Gravitybox Schedule.NET
1998-2005 Gravitybox Software LLC
Page 35 of 90
Schedule1.ColumnHeader.Appearance.BackColor = Color.LightSkyBlue
Schedule1.ColumnHeader.Appearance.BackColor2 = Color.White
Schedule1.ColumnHeader.Appearance.BackGradientStyle =
Gravitybox.Objects.GradientStyleConstants.Vertical
Schedule1.RowHeader.Appearance.BackColor = Color.LightSkyBlue
Schedule1.RowHeader.Appearance.BackColor2 = Color.White
Schedule1.RowHeader.Appearance.BackGradientStyle =
Gravitybox.Objects.GradientStyleConstants.Horizontal
Schedule1.Appearance.BackColor = Color.White
Schedule1.Appearance.BackColor2 = Color.LightBlue
Schedule1.Appearance.BackGradientStyle = _
Gravitybox.Objects.GradientStyleConstants.ForwardDiagonal
Dim appointment As Gravitybox.Objects.Appointment
appointment = Schedule1.AppointmentCollection.Add("", #1/2/2004#, _
#9:00:00 AM#, 120)
appointment.Appearance.BackColor = Color.White
appointment.Appearance.BackColor2 = Color.Salmon
appointment.Appearance.BackGradientStyle =
Gravitybox.Objects.GradientStyleConstants.ForwardDiagonal
appointment.Appearance.IsRound = True
appointment.Subject = "This is a test!"