Write a program to check Leap Year | Leap Year Checker in VB 6.0

Write a program to check Leap Year | Leap Year Checker in VB 6.0.

Design

Code Window

Private Sub Command1_Click()

Dim s As Integer

s = Val(Text1.Text)

If s Mod 4 = 0 Then

Text2.Text = "Leap Year"

Else

Text2.Text = "Non-Leap Year"

End If

End Sub

Thank You