vaSpreadのチェックボックスとコマンドボタンについて

VBの初心者です。よろしくお願いします。
VB6.0&vaSpread3.0を使用しています。
Spreadの同一行にコマンドボタンとチェックボックスを配置しています。
コマンドボタンをクリックすると1行削除するようにしたいと思っています。
ButtonClickedにて1行削除できるよう、記載したのですが、
チェックボックスをクリックしてもButtonClickedが反応し、1行削除されてしまいます。
コマンドボタンとチェックボックスを使い分けたい場合、どのように記載したらよろしいでしょうか？

下記にコードを記載します。
Private Sub vaSpread1_ButtonClicked(ByVal Col As Long, ByVal Row As Long, ByVal ButtonDown As Integer)
With vaSpread1
.Row = Row
.Row2 = Row
.BlockMode = True
.Action = ActionDeleteRow
.BlockMode = False
.MaxRows = .MaxRows - 2
End With
End Sub

よろしくお願いいたします。

No.1 ベストアンサー 回答者： otto0001otto 回答日時： 2007/11/28 19:07

チェックボックスの列が２だとしたら、

If Col = 2 Then Exit Sub
を入れたらどうですか？

この回答へのお礼

解決しました!!
こんな簡単なロジックが思いつかなかったなんて…。
助かりました。どうもありがとうございました。

お礼日時：2007/11/29 11:46