JustPaste.it

For Each objItem In colItems

width = 100 - objItem.LoadPercentage

if objItem.LoadPercentage = 100 Then

cpustatus = "<table width='100' height='10' cellspacing='1' cellpadding='1' bgcolor='black'><tr><td bgcolor='orange' width='" & width & "'></td></tr></table>" & "CPU Utilization: " & objItem.LoadPercentage & "%"
                         
else
                              
cpustatus = "<table width='100' height='10' cellspacing='1' cellpadding='1' bgcolor='black'><tr><td bgcolor='orange'></td><td bgcolor='white' width='" & width & "'></td></tr></table>" & "CPU Utilization: " & objItem.LoadPercentage & "%"


end if

Next