How to check Leap Year In Vb.net with Logic

How to check Leap Year In Vb.net with Logic
If (Convert.ToInt16(TextBox1.Text) Mod 4 = 0) Then
            MsgBox("It is a leap year")
        Else
            MsgBox("It is not a leap year")
        End If

Share This