public class класс1
  public переменная1 as тип1 
  private переменная2 as тип2
............................................
  методы()
end class
-----------------------------------------------------------------------
public class класс2
  public переменная1 as тип1 
  public внутОбъект1 as класс1
............................................
  методы()
  public sub addObject(ByVal Объект as класс1)
    внутОбъект1 = New класс1
    внутОбъект1 = Объект
  end Sub

end class
----------основной код------------------------------------------------
Sub Main
  Dim Объект1 as New класс1

  Dim Объект2 as New класс2

  Объект1.addObject(Объект1)
End Sub