補足> Private Sub Command1_Click()> Dim temp As CommandButtonモジュールレベルでDim WithEvents temp As CommandButtonとしないと、たとえばPrivate Sub temp_Click()でイベントが拾えないでしょう。