参考答案

Private Sub P1_Click()
    CD1.ShowOpen
'或 Me.CD1.ShowOpen
'或 Form1.CD1.ShowOpen
'或 P1.Parent.CD1.ShowOpen
'或 CD1.Action = 1
'或 Me.CD1.Action = 1
'或 Form1.CD1.Action = 1
'或 P1.Parent.CD1.Action = 1
End Sub