ボタンをクリックすると、フォームを開くエラー処理も含めたＶＢＡコードです。メニューフォームでよく使います。エラー処理は、On Error Goto ラベル名、Err.Descriptionを使います。