Я имел ввиду создание объекта:
Class Foo
Public myField as Integer
End Class
'Другой класс использует первый как экземпляр
Class Boo
Public myFoo as Foo = new Foo()
Public Sub SetFooValue( Value as Integer)
myFoo.myField = Value;
End Sub
Public Function GetFooValue() as Integer
Return myFoo.myField;
End Function
End Class
Сто лет на бэйсике не писал, так что могу ошибок наделать, но смотрится вроде правильно ))