VB6 (Second Function) on Windows 7

See more:

VB6

VB

DateTime

Hi, everyone. I'm adding new stuff to a really really old (and vb6) program on Windows 7.
The program uses the DateTime member Second to get the current time's seconds.

My problem is that I have to comment out Second (Minute, Hour work fine) in order to make an executable, or compile the source. If I don't an index error pops up. Why Minute and Hour work fine, but not Second, is beyond me...

If anyone knows how I can compile/make exe file without the error poppling up (and on a Windows 7 machine), please let me know.

Thanks in advance!

[EDIT]The section below was moved from comment - LOSMAC[/EDIT]

Ok, I don't know the solution to my problem, but I found another way to do the same thing that doesn't make an errors on Win7.. I would really like to change the code back to its original state if possible, so I'm still looking for solutions.

Dim sec As Byte
Dim min As Byte
Dim strSec As String
'** Minute works OK
min = Minute(Time)
'** Second is No good (So I deleted it)
'** sec = Second(Time)
'** The following code doesn't make any errors, so I'm using it...
strSec = Format(Time, "s") sec = Val(strSec)