Calling/using DLLs

[Edneeis]

Well it depends a lot on what Apple cls does compared to Apples are they almost the same?

Wokawidget's suggestion will work, you could also do it outside of your objects. Like in the SaveToFile sub

Public Sub SaveToFile(strFileName as string)
   If trim$(strFileName)="" then
      dim tmpObj as new Apple
      tmpObj.SaveToTextFile strFileName
   Else
     dim tmpObj as New Apples
     tmpObj.SaevToDB
   End If

Or I will attach an example of using an object inside another object and as a collection.