如何把A类中的已赋值变量传递给B类中的变量

Question

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

Answer 1

在B中：
dim getJ as A
set getJ=New A
debug.print getJ.j
set getJ=Nothing 

Answer 2

直接用debug.print(A.j)行吗？            我试了貌似没用哇  

Answer 3

'form1 code
Private Sub Command1_Click()
  Dim b As New b
  b.ss
End Sub'类模块A
Public j As IntegerSub ss()
  j = 10
End Sub'类模块B
Dim a As New a
Sub ss()
  a.ss
  Debug.Print a.j
End Sub