Connect:If wsck.State <> sckConnected Thenwsck.Closewsck.Connect RemoteHost, RemotePortElsewsck.SendData "connected"goto SuccessEnd IfPause (2)GoTo ConnectSuccess:(End Sub)
And the code i have for the pause function is:
Public Sub Pause(seconds)Dim CurrentTime As IntegerCurrentTime = TimerDoDoEventsLoop Until CurrentTime + seconds <= TimerEnd Sub
I get an error on the line:
CurrentTime = TimerThat says: Overflow
I'm not sure if this is the only problem because when i used Sleep(1000) the program didn't work at all.
Thanks in advance.