activeX 文档

我的代码：
公共模块（mglobal)：
Public gLogin As udLogin
第一个文档（udLogin)：
Dim AppPath As String
Dim LoginId As Integer
Option ExplicitPrivate Sub CmdEnter_Click()
AppPath = "f:\Tourist\"
Dim CanIn As Boolean
'判断是否为注册用户或普通用户
CanIn = True'假设可以进入
'得到用户ID
LoginId = 15'假设ID为15
'是否进入下一界面
If CanIn Then
'带入参数
  Set gLogin = Me
    Hyperlink.NavigateTo AppPath & "udUser.vbd"
Else
  MsgBox "用户名和密码不匹配！”"
  
End If
End Sub'userid为第一个文档中的公共过程属性
Public Property Get UserId() As Integer
UserId = LoginId
End PropertyPublic Property Let UserId(ByVal vNewValue As Integer)
LoginId= vNewValue
End Property
第二个文档：Private Sub CmdBack_Click()
Hyperlink.GoBack
End SubPrivate Sub CmdTest_Click()
If Not gLogin Is Nothing Then
'对参数的引用
  MsgBox gLogin.userid
  Set gLogin = Nothing
End If
End Sub