I assume you mean checking the property every millisecond. If so, use the following code.
Code:
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub CheckProperty()
Do
Start = GetTickCount
Do While GetTickCount < Start + 1
DoEvents
Loop
'<--Check your property here-->
Loop
End Sub