为何form2的command事件中strtest没有值？？？？

[carfield2003]

module1的内容(将其设为启动)
Sub Main()
Dim frmNew As New Form1
frmNew.Show 1
End Sub

form1的代码：
Option Explicit

Public strTest As String

Private Sub Command1_Click()
Form2.Show 1
End Sub

Private Sub Form_Load()
strTest = "测试成功！"
End Sub

form2的代码：
Option Explicit

Private Sub Command1_Click()
MsgBox frmNew.strTest
End Sub