Trucos Varios II

Crear controles en tiempo de ejecucion
For Contador = 1 To UBound(ArrOpc, 1)
Load Label1(Label1.Count)
Label1(Contador).Font = Label1(0).Font
Label1(Contador).Top = AniGIF1.Height + (Label1(0).Font.Size * Screen.TwipsPerPixelY) * Contador + 80 * Contador
Label1(Contador).Visible = True
Next

Hecho en Lima - Perú por ® SYL systems