Dim n As DateTime = DateTime.NowMe.tbdtpStartDate.EditValue = New DateTime(n.Year, n.Month - 1, 1)Me.tbdtpEndDate.EditValue = New DateTime(n.Year, n.Month - 1, DateTime.DaysInMonth(n.Year, n.Month - 1))