Code: Select all
For Each objControl In frmHub.Controls
If objControl.Name = "HubScripts" And UCase(sService) = UCase(objControl.Tag) Then
If objControl.Procedures.Count <> 0 Then
objControl.Reset
sStatus = CStr(sService) + " has been stoped."
Else
sStatus = "Error: " + CStr(sService) + " has already been stoped."
End If
Exit For
End If
Next