在Visual Basic（VB）中加载控件通常有以下几种方法：
1. 在设计器中直接添加
打开VB开发环境，在项目中打开需要添加控件的窗体。
在工具箱中选择想要添加的控件（如按钮、文本框等）。
将控件拖动到窗体上，放置在希望控件出现的位置。
调整控件的大小和位置，以及设置控件的属性（比如文本内容、背景颜色等）。
可以通过双击控件，在控件的事件处理程序中编写代码实现控件的功能。
保存并运行程序，查看控件在窗体中的效果。
2. 动态加载控件
动态加载VB固有的控件
```vb
Dim txtDynamic As TextBox
Set txtDynamic = Me.Controls.Add（"VB.TextBox", "txtDynamic", Me）
With Me!txtDynamic
.Visible = True
.Width = 2000
.Text = "0"
End With
```
动态加载自定义控件
```vb
' 加载自定义控件并设置属性
Private Sub Form_Load（）
Dim ctlExtender As Object
Licenses.Add "Project2.UserControl1", "kaghfadhghlaahnhigaaohaaogjgmaehoanb"
Set ctlExtender = Controls.Add（"Project2.UserControl1", "MyControl"）
With ctlExtender
.Visible = True
.Top = 1000
.Left = 1000
End With
End Sub
```
3. 通过代码添加控件
添加一个按钮控件
```vb
Dim oControl As Object
Private Sub Form_Load（）
Set oControl = Controls.Add（"VB.CommandButton", "cmdButton", Me）
oControl.Left = 100
oControl.Top = 100
oControl.Caption = "Click Me"
oControl.Visible = True
End Sub
```
添加控件数组
```vb
Private Sub Form_Load（）
Dim cmdButtons（） As CommandButton
ReDim cmdButtons（0 To 4）
For I = 0 To 4
Set cmdButtons（I） = Me.Controls.Add（"VB.CommandButton", "cmdButton" & I, Me）
cmdButtons（I）.Left = 100
cmdButtons（I）.Top = 100 + I * 30
cmdButtons（I）.Caption = "Button " & （I + 1）
Next I
End Sub
```
4. 从资源文件加载控件
将控件作为资源文件加载
1. 将第三方控件以自定义资源文件方式保存在程序中。
2. 程序运行之后使用控件之前将所用到的控件生成到该程序目录下。
3. 使用`LoadResData`函数加载资源文件中的控件。
```vb
Private Const OCXSIZE = 198456 ' 控件大小
Private Sub Main（）
Dim Ocx（） As Byte
Dim Counter As Long
Ocx = LoadResData（101, "CUSTOM"） ' 加载资源文件中101号资源
' 使用Ocx数组中的数据创建控件
End Sub
```
5. 动态加载控件并绑定事件
```vb
Private WithEvents txtTest As TextBox
Set txtTest = Me.Controls.Add（"VB.TextBox", "txtDynamic", Me）
Private Sub txtTest_KeyPress（KeyAscii As Integer）
' 处理文本框的KeyPress事件
End Sub
```
建议
设计器添加：对于简单的控件添加和布局，直接在设计器中操作是最快捷的方法。
动态加载：对于需要动态添加或替换控件的情况，可以使用动态加载的方法。
资源文件：如果控件需要分发或更新，将其作为资源文件加载是一个好方法。
事件处理：动态添加控件后，务必为其绑定相应的事件处理程序。
通过以上方法，你可以在VB中有效地加载和使用控件。选择哪种方法取决于你的具体需求和项目结构。
