Obtener Primer y Ultimo Dia del Mes VB

  If Not IsPostBack Then
            Dim firstDay = New Date(Now.Year, Now.Month, 1)
            Dim lastDay = firstDay.AddMonths(1).AddDays(-1)
            deFecha1.Value = firstDay
            deFecha2.Value = lastDay
  End If