ayuda soy principiante me urge¡¡¡¡¡

ismae
08 de Abril del 2003
hola me urge que me atunden con un probelma tengo que resolver un problema para mi examen y no se como aser lo si me ayudan se los agradesere
tengo que crear un pequeño programa que me ejecute la siguien te operacion como de terminar siun año es visiesto ono osea que yo en un txt pongo un año x y al comprobar com un cmb me tiene que poner eun lbl si es año visiesto ono como lo hago?

angeles
08 de Abril del 2003
Public Function bisiesto(anio as integer) as Boolean
bisiesto=(anio Mod 4=0 And anio Mod 100 <> 0 Or anio Mod 400 =0)
End Function