Public Class UserControl1

    Private Sub btnShowdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowdate.Click
        lblDate.Text = Date.Today
    End Sub
End Class
