怎么把A类中的已赋值变量传递给B类中的变量

如何把A类中的已赋值变量传递给B类中的变量
本人定义了两个类，A和B。A中有变量J并且按条件自增。现在想在B类中获取变量J当前的值，请问该如何实现？

[解决办法]
在B中：

VB code

dim getJ as Aset getJ=New Adebug.print getJ.jset getJ=Nothing
[解决办法]
VB code
'form1 codePrivate Sub Command1_Click()  Dim b As New b  b.ssEnd Sub'类模块APublic j As IntegerSub ss()  j = 10End Sub'类模块BDim a As New aSub ss()  a.ss  Debug.Print a.jEnd Sub