Dim objA as New A

objA.CreateParameter


Dim prm as Object = ?? как правильно сделать? Написать функцию? или? чтоб не нарушить ООП...

Dim objB as New B (prm) 


Class A

	Private parameter1 as Object <- Шаг 2 - Тут он принимает какое то значение

	Public Sub CreateParameter

		parameter1 = Something <- Шаг 1 - Тут идет какое-то назначение

	End Sub

End class


Class B1

	Private _parameter1 as Object

	Sub New (Byref parameter1 as Object)

		_parameter1 = parameter1 <- ШАГ 3 - Здесь он получает параметр который в классе А

	End sub

Class end


Class B2

	Private _parameter1 as Object

	Sub New (Byref parameter1 as Object)

		_parameter1 = parameter1 <- ШАГ 3 - Здесь он получает параметр который в классе А

	End sub

Class end