Public Class leapyear

    Private Sub btnyear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnyear.Click
        Dim leapyear As Boolean
        Dim year As Double
        year = txtinput.Text
        leapyear = Date.IsLeapYear(year)

        If leapyear = True Then
            txtyear.Text = year & " is a leap year."
        Else
            txtyear.Text = year & " is not a leap year."
        End If

    End Sub
End Class