VB内FORM1与标准模块之间的数据交换问题

Question

在form里面申明xx和yy，然后通过form里面的time进行累加，在模块里面用yy读xx的数值，然后在form里面将yy的值乘以2后送到text1里面。
以下是form内代码：
Dim xx As String
Dim yy As String

Private Sub Form_Activate()
xx = 0
End Sub

Private Sub Timer2_Timer()
Call module1.module1
End Sub

Private Sub Timer1_Timer() ‘时间设置1秒累加1
xx = xx + 1
If xx= "12" Then
xx = 0
End If
text1.text = yy
End Sub`

以下是标准模块内代码：
Public Sub module1()
yy = xx * 2
End Sub

提示的错误是：未找到方法或数据成员
请帮忙修改下，谢谢！

Answer 1

Dim xx As String
Dim yy As String
删除
在模块里加上
Public xx As String
Public yy As String