Finde control.name

Jeg har en række kontroller, hvor jeg gerne vil ændre på højde etc. De skal alle ændres til samme værdier.

Pt. ser koden sådan ud:

label1.height = 100
label1.width = 100
label2.height = 100
label2.height = 100

etc.

Kan jeg ikke lave en funktion/sub, således jeg kan skrive:

standarddiser(label1)

og denne

public sub standarddiser(kontrol as object)
  kontrol.height=100
  kontrol.width=100
end sub

Pt. gør jeg det ved at løbe alle kontroller igennem vha.:

for i = 0 to frmMain.controls.count-1
  if frmmain.controls.count = "something" then
    DetteErKontrollen = i
  end if
next i

control(DetteErKontrollen).height=100
etc.

Men, dette gennemløb tager relativ meget tid - der må da være en smartere metode som jeg har overset...

Mvh
Martin