スプレッドに値を設定する方法

質問

VB初心者です。単純な質問で申し訳ありませんが、
以下のスプレッドでcheckBox2にチェックしたとすると
子画面出力します。そのときにチェックが消えてしまいます。そのチェックをつけたままに変更したいです。

オブジェクト名：sprService
＿＿＿＿＿＿＿＿＿＿＿＿＿_________
|checkBox1 | 001 | AAAA |　　a 　　|　
|----------|-----|------|----------|　　　
|checkBox2 | 002 | BBBB |　　b　　 |
|----------|-----|------|----------|
|checkBox3 | 003 | CCCC |　　c　 　|
|----------|-----|------|----------|

単純にSetTextするのかなと思って書いてみたのですが
思うようにいきません。

Private Sub sprService_ButtonClicked(ByVal Col As Long, ByVal Row As Long, ByVal ButtonDown As Integer)
Dim tim
If ButtonDown = 1 Then
sprService.GetText 1, Row, tim
End If
'スプレッドにセット
sprService.SetText(1,Row,tim)
End Sub

わかりにくくてすいません。どなたか教えてください。

回答No.1

ki-ton

自分でsettextすると
またクリックイベントが起きるはずです。
そこら辺でおかしくなってるのでは？

自分でいれなくても、チェックがつきませんかね