Visual Basic - Año bisiesto

Hola a todos

estoy desarollando un calendario en vb6 y necesito saber si el año actual es o no bisiesto.

Espero que alguien pueda darme algún código, aunque creo que no debe ser tan difícil como parece...

Muchísimas gracias de anticipado.

Prueba con esto:
Private Sub Form_Load()
'If BICIESTO(Year(Now)) Then
If BICIESTO(2004) Then
MsgBox "Año Biciesto", vbInformation, "mIgUeL aNgEl"
Else
MsgBox "Año No Biciesto", vbInformation, "mIgUeL aNgEl"
End If
End Sub

Function BICIESTO(Año As Integer) As Boolean
BICIESTO = False
If (Año Mod 4 = 0 And Año Mod 100 <> 0) Or Año Mod 400 = 0 Then
BICIESTO = True
Exit Function
End If
End Function