How can I create a new Class in QB?
When performing queries you will need to use ObjSearch, and when performing other operations, you will need to use QBObject. Fortunately, the Class object is a very small one, and adding one is simple with QBObject:
QBObject1.ObjectName = "Class"
QBObject1.ObjectType = "List"
QBObject1.AddProperty("Name", "MyNewClass")
'optional
QBObject1.AddProperty("IsActive", "false")
'also optional
QBObject1.AddProperty("ParentRef", "20000-933270541")
OR
QBObject1.AddProperty("ParentRef", "ParentObject")
QBObject.Add