How to pause a process for a given time

[Lei Guangfu]

Hi,

I have a program need to delay for a given time, I use DO WHILE loop to achieve this goal, but this method consumes too much CPU resource. So I want to find a way to pause a process for a given time such as one minute.

Anyone can offer me some guides? Thanks in advance.

For better understanding the scenario, please refer to following codes:

Public Function BeginConnection() As Boolean
Try
Dim StartTime As DateTime
StartTime = Now
Do While Application("ActiveConnections") + 1 > Application("PermitConnections")
If StartTime.AddMinutes(1) < Now Then
Me.LblMessage1.Text = "Too many users connect to the server, please try later."
Return False
End If
Loop
Application("ActiveConnections") = Application("ActiveConnections") + 1
Finally
End Try
Return True
End Function

[Cor Ligthert]