CheckBoxをボタン形式にして押下した時、背景色を変化させない方法

VBのCheckBoxをボタン形式にして押下すると、背景色が薄くなります。
これを、押下しても薄くならない方法を探しているのですが、うまく
見つけることができません。
もし、ご存知の方がいましたら、教えていただけないでしょうか？
よろしくお願いします。

開発環境
VB6.0
Windows XP

No.3 回答者： noname#77574 回答日時： 2009/02/13 20:59

VB2008での場合ですが、

Private Sub CheckBox1_CheckedChanged( ...
If Not CheckBox1.Checked Then
CheckBox1.BackColor = Color.White
CheckBox1.ForeColor = Color.Black
End If
End Sub

でどうでしょう。

No.2 回答者： noname#140971 回答日時： 2007/07/13 11:48

Check1 と同じ大きさのText1 を同じ場所に配置。

Private Sub Check1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Me.Text1.Visible = True
End Sub

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Me.Text1.Visible = False
End Sub

Private Sub Form_Load()
　　Me.Text1.Visible = False
End Sub

これで、現象を隠すことも可。

No.1 回答者： redfox63 回答日時： 2007/07/13 09:14

チェックボタンの大きさのビットマップをWindowsに付属のPaintなどで作成します

チェックボックスに表示する文字も書き込んでおきます

チェックボックスの キャプション(Caption)プロパティは何もない状態にして
ピクチャー(Picture)プロパティに作成したビットマップを設定します

といった具合でどうでしょう ・・・