Track Control

Dim dtDate As Date

Private Sub Form_Load()
    dtDate = "28/01/2012"
End Sub

Private Sub TrackControl_TimeLineLabel(ByVal Position As Long, Label As String, TickColor As stdole.OLE_COLOR, TickLength As Long)
    Select Case Position
        Case 0
            Label = Format(dtDate, "mmm yy")
            TickColor = &H2C94FD
            TickLength = 12
        Case Else
            Dim dtNextDate As Date
            Dim pos As String
            pos = Position / 24
            
            If InStr(pos, ".") = 0 Then
                dtNextDate = DateAdd("d", CDbl(pos), dtDate)
                Label = Format(dtNextDate, "dd/mm/yyyy")
                TickColor = &HFF&   '&H2C94FD
                TickLength = 14
            Else
                Label = ""
                TickLength = 0
            End If
    End Select
End Sub