VB中类模块自定义过程中参数传递

工程中有一个cls文件和一个frm文件
cls名称为Student 窗体名称为frmMain
cls文件中的代码如下：
'Student 数据成员的声明
Private strName As String
Private intAge As Integer

'初始化过程，必须的
Private Sub Class_Initialize()

  strName = "请输入你的姓名"
  intAge = 0

End Sub

'Student过程的声明(定义)
'定义一个输入过程，让用户输入数据
Public Sub IuputData()

  strName = InputBox("请输入您的姓名", "提示", strName)
  intAge = InputBox("请输入您的年龄", "提示", intAge)
 
End Sub

'定义打印信息的过程，将输入数据打印在窗体上
Public Sub PrintData(frmPrint As Form)

  frmPrint.Print strName
  frmPrint.Print intAge
 

End Sub

frm文件中的代码为：
Dim clsStu As New Student

Private Sub Form_Click()
  Dim intReply As Integer '询问用户是否打印输入的信息
 
  '调用类的成员函数
  clsStu.IuputData
 
  intReply = MsgBox("是否打印", vbYesNo, "VB类的使用")
 
  If intReply = vbYes Then
    clsStu.PrintData(frmMain)
  Else
      Exit Sub