Private Sub Command1_Click()
'Call ShowName(?)
End Sub
Private Sub Label1_Click()
'Call ShowName(?)
End Sub
'Private Sub ShowName(c As ?)
    If TypeOf c Is CommandButton Then
        Label2.Caption = "单击" & Command1.Caption
    End If
    If TypeOf c Is Label Then
'    ? = "单击" & Label1.Caption
    End If
End Sub