Ejemplo sacando año bisiesto vb.net

En este ejemplo de "vb.net" se muestra como verificar si x año es bisiesto o no.
para el cual solo deberemos introducir el valor de algun numero que quieras saber.

Visualmente solo ocuparía tener este diseño:

siendo 1 button, 1 textboxt y 1 label los que se ocuparian

Aqui el codigo:

Public Class Form1



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

        If ((((CInt(TextBox1.Text Mod 100)) <> 0) And ((CInt(TextBox1.Text Mod 100) Mod 4) = 0)) Or ((CInt(TextBox1.Text Mod 100) Mod 400) = 0)) Then

            Label1.Text = "El año es Bisiesto"

        Else

            Label1.Text = "El año no es Bisiesto"

        End If

    End Sub

End Class

             



vb.net