参考答案

Private Sub Form_Click()
    Print "单击窗体"
'或    Form1.Print "单击窗体"
'或    Me.Print "单击窗体"
End Sub
Private Sub P1_Click()
    P1.Print "单击图片框"
'或    Form1.P1.Print "单击图片框"
'或    Me.P1.Print "单击图片框"
End Sub