Dim Label1 As New Label
Label1.Location = New System.Drawing.Point(8, 8) '括號中寫左邊距和上邊距
Label1.Name = "Label1"
Label1.AutoSize = True
Label1.TabIndex = 1
Label1.Text = "運輸"
Label1.Visible = True
Me.Controls.Add(Label1)
End Sub