你的思路完全正确
目前成都创新互联已为上千多家的企业提供了网站建设、域名、网络空间、网站运营、企业网站设计、西固网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
Dim curpos As Integer
curpos = BindingSource1.Position
BindingSource1.Position = curpos
Private Sub Form_Load()
Me.Show
Text1.SetFocus
End Sub
注：要使得窗体先显示出来，再设置Text1的焦点，不然会出错的。
你这个是操作多个窗口还是操作单个窗口
单个窗口的话，没必要创建多个对象，1个就够了。
如果特殊情况下需要创建多个大漠插件的对象，承载对象的变量可设置成数组型，或者可更换成模块去创建多个对象
我以前用过：如图，这个模块可以实现，需要的话精益论坛上有 搜索下
代码的写法如下：
1、先创建个全局变量的对象数组
2、如下