tooltip

below is my code : and i need to add tooltip in this event how to do that :

Protected Sub DayPilotScheduler1_BeforeEventRender(sender As Object, e As BeforeEventRenderEventArgs)
If DayPilotScheduler1.DataSource Is Nothing Then Exit Sub
Dim color As String = TryCast(e.DataItem("color"), String)
Dim DocNumber As String = TryCast(e.DataItem("DocNumber"), String)
Dim Client_Name As String = TryCast(e.DataItem("Client_Name"), String)
e.DurationBarColor = color
e.BackgroundColor = "#EBEDF3" ''Gray
Dim archived As String = TryCast(e.DataItem("Archived"), String)
Dim S_archived As Integer = ConvertStrToInt(archived)
Select Case S_archived
Case 1 'Archived
e.Html = "<div class='StrikeLabel'>" + Client_Name + "<br />" + DocNumber + " <br /></div>"
Case Else 'Open/OnHold
e.Html = "<div class='NormalLabel'>" + Client_Name + "<br />" + DocNumber + " <br /></div>"

End Select

End Sub

There is a property of BeforeEventRenderEventArgs called ToolTip:

Protected Sub DayPilotScheduler1_BeforeEventRender(sender As Object, e As BeforeEventRenderEventArgs) 
  ' ...
  e.ToolTip = "ToolTip Text"
End Sub