Codejock Developer Community : Add Label

Add Label : Hi DataFlowJoe, I use this function...

Tue, 31 Mar 2009 15:11:02 +0000

Author: mbrogdon
Subject: 13841
Posted: 31 March 2009 at 3:11pm

Hi DataFlowJoe,

I use this function to extend my Labels

Public Sub AddLabel(ByVal LabelNr As Long, ByVal R As Long, ByVal G As Long, ByVal B As Long, ByVal Name As String)
   ctlCalendar.DataProvider.LabelList.AddLabel LabelNr, RGB(R, G, B), Name
End Sub

Add Label : Hi, can someone help me with a...

Sat, 28 Mar 2009 13:33:24 +0000

Author: DataFlowJoe
Subject: 13841
Posted: 28 March 2009 at 1:33pm

Hi, can someone help me with a snippet of code to add new labels and colors to a calendar control.

All the help file says is

Public Sub AddLabel( _
   ByVal LabelID As Long, _
   ByVal Color As ULong, _
   ByVal Name As String _
)

It would be useful if the helpfile gave a simple example.

I'm using VBA in microsoft Access

Thanks for your time.