给个例子:
成都创新互联服务项目包括蠡县网站建设、蠡县网站制作、蠡县网页制作以及蠡县网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，蠡县网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到蠡县省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To 30
ListBox1.Items.Add(i)
Next
ListBox1.SetSelected(ListBox1.Items.Count - 1, True)
End Sub
End Class
自己在窗体上加一个按钮，以下是详细代码（整个类）
Public Class Form1
Private N As Integer '用来记添加要加入textbox的个数
Private PL As Integer = 10 'textbox相对于窗体的Left
Private PT As Integer = 10 'textbox相对于窗体的Top
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.AutoScroll = True '窗体自动显示滚动条
N = 10 '初始化N为10
For i = 1 To N
Dim newtextbox As New TextBox
newtextbox.Left = PL
newtextbox.Top = PT
Me.Controls.Add(newtextbox)
PT += newtextbox.Height + 10 '各 newtextbox上下间隔10-------PL不变是希望左对齐
Next
End Sub
End Class
Private WithEvents NewTextBox As TextBox
'通过使用WithEvents关键字声明一个对象变量为新的命令按钮
Private Sub Command1_Click()
If NewTextBox Is Nothing Then
Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)
NewTextBox.Move 200, 200
NewTextBox.Width = Form1.Width - 450
NewTextBox.Height = Form1.Height - 1400
NewTextBox.Visible = True
End If
End Sub
Private Sub Command2_Click()
If NewTextBox Is Nothing Then
Exit Sub
Else
Controls.Remove NewTextBox
Set NewTextBox = Nothing
End If
End Sub
工具箱右键单击——选择项……——选择.net组件或com组件——点击“浏览”选择控件dll文件，然后工具箱中就会出现新加的控件
Dim Bt as New Button
Bt.Size=New Size(100,100)
Bt.Location=New Point(100,100)
Bt.Text="New Button"
Me.Controls.Add(Bt)
这是不可避免的，除非更换电脑硬件，让处理器及内存处理得更快，或是不要用自带的 Panel 和 Label 控件，自定义一个容器，内容自绘。
卡顿主要原因：
1、控件多了，电脑必然会慢，因为在 Windows 里每个控件都相当于一个窗口，有自己的句柄，系统需要维护对应的窗口消息，那么一定会卡顿，只能缓解不能消除。
2、可以用多线程，在子线程中更新控件，通过委托的方式通知主线程，可以有效缓解卡顿的问题。
