窗体传递参数的问题

Question

Private Sub Command1_Click()
    Dim xx As Form
    If Command2.Caption = "Command2" Then
        xx = Form2
        xx.Show
    End If
    'Call tt(0, Form2s)
End SubSub tt(index As Integer, ss As Form)
    ss.Show
End Sub报错：属性的使用无效

Answer 1

Private   Sub   Command1_Click()
        Dim   xx   As   Form
        If   Command2.Caption   =   "Command2 "   Then
                set xx   =   new Form2
                xx.Show
        End   If
       
End   Sub