For lnCounter = 1 To lnNumberOfServer 'WebServerImage1.Image = Image.FromFile(lcStartupDirectory + "..\Images\Green.gif") NextThe line should be dynamic to lnCounter. So, something like:
"WebServerImage" + Trim(Str(lnCounter)+".Image=..."is required.