vb.net动态写入listbox，动态添加事件，实现拖拽

根据月份。每天画一个listbox和label，并且为listbox添加事件

Private Sub DrawingPage()

        Try
            'listbox大小
            Dim s As Size
            s.Width = 120
            s.Height = 88


            '获取当月天数
            Dim days As Integer = DateTime.DaysInMonth(DateTime.Now.Year, DateTime.Now.Month)
            '当前时间
            Dim datestr As Date = Now()


            For i As Integer = 1 To days
                'listbox
                Dim list As New ListBox
                'listbox
                Dim label As New Label
                'listbox x轴
                Dim x As Integer
                'listbox y轴
                Dim y As Integer
                'listbox y轴行数
                Dim yIndex As Integer
                'label x轴
                Dim lx As Integer
                'label y轴
                Dim ly As Integer
                '当月第i天
                Dim sday As Date = Year(datestr) & "-" & Month(datestr) & "-" & i
                '第i天周几
                Dim Week As String = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.GetDayName(sday.DayOfWeek)
                '求x轴坐标
                Select Case Week
                    Case "星期日"