File "ClassExplodeGroup.vb" Attribute VB_Name = "ClassExplodeGroup" ' Package : GetMailInDatabase kind = Agent Class ClassExplodeGroup private m_privateBaseVar as string public m_publicBaseVar as integer Sub new(dbName) print "this is the class 'ClassExplodeGroupDebug'" End Sub function getClass(User$) as string dim szClass$ ' ... get the Group where the user is a member getClass = szClass end function End Class
File "ClassExplodeGroupDebug.vb" Attribute VB_Name = "ClassExplodeGroupDebug" ' Package : GetMailInDatabase kind = Agent Class ClassExplodeGroupDebug Inherits ClassExplodeGroup private m_privateVar as string public m_publicVar as integer Sub new(dbName), ClassExplodeGroup(dbname) print "this is the class 'ClassExplodeGroupDebug'" End Sub function getClass(User$) as string dim zw as string zw = ClassExplodeGroup..getClass(User) print "Class for User : " & zw getClass = zw end function End Class