Private Sub mnuStart_Click()
On Error Resume Next
Dim SocketCheck As Integer
 
Text5.Text = Text5.Text & vbCrLf & "Start - " & Time
 
For SocketCheck = 0 To SocketCount Step 1
    Load wsServer(SocketCheck)
    DoEvents
Next SocketCheck
 
Timer1.Enabled = True
 
ProgressBar1.Value = Four
End Sub

  Load wsServer(SocketCheck)