ASP Net Controls ASP.Net Tutorial

<%@ Page Language="VB" %>

    Protected Sub Calendar1_DayRender(ByVal sender As Object, _
      ByVal e As System.Web.UI.WebControls.DayRenderEventArgs)
        e.Cell.VerticalAlign = VerticalAlign.Top
        
        If (e.Day.DayNumberText = "25") Then
            e.Cell.Controls.Add(New LiteralControl("User Group Meeting!"))
            e.Cell.BorderColor = Drawing.Color.Black
            e.Cell.BorderWidth = 1
            e.Cell.BorderStyle = BorderStyle.Solid
            e.Cell.BackColor = Drawing.Color.LightGray
        End If
    End Sub



    Using the Calendar Control


    
    

                              Runat="server" 
                      OnDayRender="Calendar1_DayRender" 
                      Height="190px" 
                      BorderColor="White" 
                      Width="350px" 
                      ForeColor="Black" 
                      BackColor="White" 
                      BorderWidth="1px" 
                      NextPrevFormat="FullMonth" 
                      Font-Names="Verdana" 
                      Font-Size="9pt">
                                          BackColor="#333399">
            
            
                                       VerticalAlign="Bottom" 
                           Font-Size="8pt" 
                           Font-Bold="True">
            
                            Font-Bold="True" BackColor="White" BorderWidth="4px">