格式就是set A= new [object]
为峡江等地区用户提供了全套网页设计制作服务，及峡江网站建设行业解决方案。主营业务为网站设计、做网站、峡江网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
比如创建的是系统已有基类的新对象，那就直接使用语句
例如：在一个过程中：
private sub ...
set a = new ADODB.Connection(这是一个用来连接数据库的对象)
...
end sub
你只要输入到new的地方，就会出来自动匹配下拉列表，你可以看见你可以创建哪些可用对象。
如果是自定义的对象，就必须先建立类
要添加类模块创建类
比如类模块Class1.cls
那么在需要引用类中函数时你需要创建这个类的实例对象 set a as new Class1
找个例子自己练习一下就很容易弄清楚了
VB最终的版本是VB6.0。微软早都不支持了。在Win7上VB6.0是可以用的，但是之前在XP下写好的VB程序有些可能会不能用，原因是WIN7中取消了许多之前的DLL。
VS2012上就是VB.Net了，语法和VB类似。
VB6.0是面向过程开发，VB.net是面向对象开发，但是是为了照顾VB6.0程序员的开发习惯，所以有点不伦不类。
定义和实例化可以一步完成：
Dim obj() As New A
使用的时候就不用再一个个去New了。
在.NET中，对象和结构还是有些不同的，定义方式也是其中之一。
像整型、字符串和一些数值类型都属于结构。结构只需要这样定义就可以了：
Dim str As String
系统自动分配内存，然后就可以对它进行访问了。
如果像这样声明普通类：
Dim cla As Class
此时直接访问cla类成员会引发一个null异常。因为你仅仅声明了cla的类型（cla是Class类型的），而内存中没有一个真正的对象（类的实例）。如果你需要一个实例，就需要用New关键字，例如：
Dim cla As New Class("some words")
这时系统会建立一个Class对象，并将cla指向这个对象。这样就完成了一次实例化。这时就可以直接访问cla的成员了。
在实例化时，系统会调用对象的New函数，即构造函数。后面括号里的内容并不是对象的属性，而是要传递给这个构造函数的参数。至于对象的构造函数是否需要参数、需要多少参数以、参数的类型及重载情况等，取决于要实例化的类型。
上面的Class只是例子，代换成实际的类即可。