真是抱歉三请大佬
还是vb6
当我用
dim withevents创建部件时
想在一个窗体set两个部件就会提示已经有一个名为的部件
我想创建控件数组又不想用Load现有
该怎么办

别沉

不用load那就直接绘制呗

VB本身对控件数组的内部实现貌似就挺奇葩的
当一个控件变成控件数组之后，这个控件的名称就不再是控件类型了，而是一种特殊的集合类型（并不是VB内部提供的Collection类型，虽然控件数组和Collection类都有Count和Item这两种方法，但是Collection的另外两个方法是Add和Remove，而控件数组的另外两个方法是LBound和UBound）
所以，VB并没有提供运行时创建控件数组的方法，你要么自己想办法模拟控件数组，要么就查一下控件数组的资料，看看有没有代码实现的方法吧

谁有好的方法

为什么要在运行过程中创建多个控件？不会是想一个窗体实现多个功能吧。
建议还是用【菜单】来选择打开不同的窗体，来实现不同功能的操作。

按3楼的方法visible呢。

'　以下代码可以自动生成两个按钮，仅供参考。
Option Explicit
Dim WithEvents Command1 As CommandButton
Dim WithEvents Command2 As CommandButton
Private Sub Form_Load() '　创建控件
Dim i As Integer, obj As Object
Me.Caption = "创建按钮"
Set Command1 = Controls.Add("VB.CommandButton", "Command1", Form1)
With Command1
.Visible = True
.Width = 400
.Height = 400
.Left = 0
.Top = 0
.Caption = "1"
End With
Set Command2 = Controls.Add("VB.CommandButton", "Command2", Form1)
With Command2
.Visible = True
.Width = 400
.Height = 400
.Left = 400
.Top = 0
.Caption = "2"
End With
End Sub

应该没坟吧……后来发现控件组解决的确超级方便

你们理解能力真强，我看不懂他要什么

把用WithEvents生成控件写成类，创建类的实例（是这个词吧？）时，是可以创建为数组的。