Private Sub Calendar1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.PreRender
        Dim threadCurrent As Thread = Thread.CurrentThread
        Dim ciNew As CultureInfo = CType(threadCurrent.CurrentCulture.Clone(), CultureInfo)
        ciNew.DateTimeFormat.DayNames = New String() {"日", "一", "二", "三", "四", "五", "六"}
        ciNew.DateTimeFormat.FirstDayOfWeek = DayOfWeek.Sunday
        threadCurrent.CurrentCulture = ciNew
    End Sub