tooglebutton yazı rengi değişimi

[limanC34]

Selam Arkadaşlar
Toogle butonun her iki fonksiyonunda yazı renkleri nasıl değişir?
Teşekkürler.

 

[Orion1]

Dosyanız ekte.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
[B][COLOR="Red"]ToggleButton1.BackColor = RGB(225, 100, 0)[/COLOR][/B]

[B][COLOR="red"]ToggleButton1.ForeColor = RGB(0, 0, 225)[/COLOR][/B]

ToggleButton1.Caption = "SATIR GÖSTER" 
Rows("2:200").Select
Selection.EntireRow.Hidden = True
ForeColor = 3
Else
ToggleButton1.Caption = "SATIR GİZLE"
[B][COLOR="red"]ToggleButton1.BackColor = RGB(100, 0, 225)
ToggleButton1.ForeColor = RGB(0, 225, 0)[/COLOR][/B] 

Selection.EntireRow.Hidden = False
ForeColor = 4
Range("A2").Select
End If
End Sub

 

[limanC34]

Sayın Evren Gizlen
Çözümünüz için çok teşekkür ederim.
Saygılarımla.

 

[Orion1]

Sayın Evren Gizlen
Çözümünüz için çok teşekkür ederim.
Saygılarımla.

Rica ederim.
İyi çalışmalar.