创建类

要创建类，请使用 Class 语句，其语法如下。

语法

BSL classes are enclosed within Class .... End Class
'Defining the Class
Class classname 'Declare the object name
End Class

Instantiation of the Class
Set objectname = new classname