¿Por qué no me crea varios labels este código?

01/01/2013 - 12:12 por Sergio Cano | Informe spam
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objeto As Control = New Label()
Dim i As Integer = 1
Dim alto, ancho As Integer
objeto.Name = "Label" + CStr(i)
objeto.Text = objeto.Name
objeto.Location = New Point(alto, ancho)
Me.Controls.Add(objeto)
i = i + 1
alto = alto + 50
ancho = ancho + 50
End Sub
End Class
 

Leer las respuestas

#1 Emilio
01/01/2013 - 20:16 | Informe spam
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
sencillamente porque no contiene ningún bucle que le permita hacerlo.

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

Preguntas similares