VB .Net - Mostrar Primeiro e Último Dia do Mês

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim mes As DateTime = DateTime.Now

        Dim primeiroDia As DateTime = Convert.ToDateTime("01/" + mes.ToString("MM/yyyy"))

        Dim ultimoDia As DateTime = primeiroDia.AddMonths(1).AddDays(-1)

        lblInicioDoMes.Text = primeiroDia

        lblFimDoMes.Text = ultimoDia

    End Sub

End Class

Espero ter ajudado e até a próxima, abraços!