主题：[分享] 飞的日历，接着改。（20140109改）

Dim pal As WinForm.Panel = e.Form.Controls("Panel1")

Dim n_开始时间 As String = Format(Vars("查看全部"),"yyyy-MM-dd 00:00:00")
Dim n_结束时间 As String = Format(Vars("查看全部"),"yyyy-MM-dd 23:59:59")
Dim drs As List(Of DataRow) = DataTables("个人事务").Select("开始时间>='" & CDate(n_开始时间) & "' and 开始时间<='" & CDate(n_结束时间) & "'","开始时间")
Dim i As Integer = 0
Dim w As Integer = pal.Width
For Each dr As DataRow In drs

        Dim a As new My_事务标签(dr("主题") ,2,new List(of String))
        a.Top =  26 * i + 2
        a.Left = 2
        a.Width = w - 4
        a.Height = 24
        a.BringToFront
        a.Visible = True
        a.MyTaskDate = dr("开始时间")
        pal.BaseControl.Controls.Add(a)
        a.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

        i+= 1
Next