2 replies to this topic

[yonghan]

Hi all,i got a vb6 function like this

Private Sub pause(ByVal interval As Variant)
Dim Current As Variant

Current = Timer
Do While Timer - Current < Val(interval)
	 DoEvents
Loop
End Sub

and i tried convert into this way :

Private Sub pause(ByVal interval As Single)
	 Dim newDate As Date
	 newDate = DateAndTime.Now.AddSeconds(interval)
	 While DateAndTime.Now.Second <> newDate.Second
		 Application.DoEvents()
	 End While
End Sub

It doesn't works.Could someone help me pointing where is the wrong?Thanks a lot guys..

[kernelcoder]

Is 'interval' variable value in seconds?

However, in your conversion code, you used 'not equal' where as in original code it was less than. I think the code should be as

Private Sub pause(ByVal interval As Single)
        Dim newDate As Date
        newDate = DateAndTime.Now.AddSeconds(interval)
        While DateAndTime.Now.Second < newDate.Second
            Application.DoEvents()
        End While
    End Sub

[yonghan]

Hi,i have tried it.it works though but doesn't work as i expected.Actually i'm trying to create autoreply for messenger,i can retrieve new message but when i put it on a listbox,it gives me and extra item like this.Do you mind to help check my code?Thanks.