CheckBox ile işlem

[erzen]

Merhabalar. Aşağıdaki kod ile Textbox9 un başına (x) işareti koyduruyorum. Ancak Checkboxtan işaretlemeyi kaldırdığım zaman aynı anda Textbox9 daki (x) işaretinin de kalkmasını istiyorum. Nasıl yapabiliriz?

If CheckBox1 = True Then TextBox9 = "(x)" & TextBox9

 

[halit3]

bu kodu denermisiniz.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
TextBox9.Text = "(x)" & TextBox9.Text
Else
TextBox9.Text = Mid(TextBox9.Text, 4, Len(TextBox9.Text))
End If
End Sub

 

[erzen]

Teşekkür ederim.