Public Class Form1 Dim counter As Integer = 1 Dim FontName As String = "Tw Cen MT" Dim FontSize As Integer = 8 Dim FS As New Font(FontName, FontSize, FontStyle.Regular) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim lblTask As New Label lblTask.Name = "Label" & counter lblTask.Location = New Point(804, counter * 40) lblTask.Text = "You Just been Saved a name of" & TextBox1.Text lblTask.ForeColor = Color.White lblTask.BackColor = Color.FromArgb(95, 117, 146) lblTask.Width = 136 lblTask.Height = 38 lblTask.Font = FS Me.Controls.Add(lblTask) counter += 1 lblTask.BringToFront() End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)