Visual Basic

Public Sub connect()
Try
For Each cb As CheckBox In Me.GBBranches.Controls
   wskClient.Connect(cb.Text, 5000)
   MyDelay(1) 'Calls for a 1 second delay before sending "exit;"
   wskClient.Send("exit;")
Next
Catch noCon As Exception
MsgBox(noCon.Message)
'
End Try
End Sub
'
'Here is the code for a method that will cause a delay in seconds, 
'please note this does not make use of the timer control.
'(Just import Microsoft.VisualBasic.DateAndTime & System.Windows.Forms.Application 
'at the top to simplify your code)
'
    Private Sub MyDelay(ByVal x As Long)
        'Allow x seconds to wait for connection
        Dim EndTime As Single
        EndTime = Microsoft.VisualBasic.DateAndTime.Timer + x
        Do
            System.Windows.Forms.Application.DoEvents()
        Loop While (EndTime > Microsoft.VisualBasic.DateAndTime.Timer)
    End Sub