Private Sub Button1_Click(....)

   Dim c As New Label

   c.Name = "Label1"

   Me.Controls.Add(c)

End Sub



Private Sub Button2_Click(....)

   Ctype("Label1" , Label).Text = "新しいLabel"

End Sub