Label veranderen.

[HUKED]

hey,

Ik heb een checkbox gemaakt en daar achter een label met de texst " Disabled " in rode letters.
Nu wil ik dat als je de checkbox inklikt de texst " Disabled " in rode letters verandert in " Enabled " in groene letters.
En als je de checkbox dan weer un-checkt de text weer " Disabled " in rode letters wordt.

Weet iemand hoe dit moet?

 

[That Guy]

Option Explicit
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.Caption = "Enabled"
Label1.ForeColor = &HFF00&
ElseIf Check1.Value = 0 Then
Label1.Caption = "Disabled"
Label1.ForeColor = &HFF&
End If
End Sub

V:thumb:

 

[HUKED]

dank je

 

[That Guy]

np. zet je wel de vraag ff op "opgelost" ?

V.:thumb: