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

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