Private Sub btnAddLabel_Click (ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Dim lblMyLabel As New Label() lblMyLabel.Location = New Point (50,50) Me.Controls.Add (lblMyLabel)