My codes:
PUBLIC SUB CalLeapYr_Click()
DIM GetYear AS Integer
GetYear = Year(Now)
IF GetYear MOD 400 = 0 OR (GetYear MOD 100 <> 0 AND GetYear
MOD 4 = 0) THEN
Message.Info("It's a leap year!")
ELSE
Message.Info("It's not a leap year!")
END IF
END
Done in Gambas, a VB like programming language, so it's not
entirely VB. Me see if it can be ported over to Windows. 
" is this sign 
"
