Check Box...

If Check1.Value = vbChecked Then
...
End If

Du skal checke på dens value.
Value kan være
0 - blank
1 - checked
2 - grayed

Denne rutine skifter værdien i checkboksen og skifter mellem blank og checket:

Private Sub Check1_Click()
  Select Case Check1.Value
    Case 0
      MsgBox "Den er blank"
    Case 1
      MsgBox "Den er checket"
  End Select
End Sub

Vil du have den grayed ud skal du selv skrive det:

check1.value = 2

Håber det hjalp

Takker..!

Sry kaffe, så ikke dit svar før fik accepteret ...kan_ikke_logge's svar...

Hmm... skal jeg oprette et spm. til kaffe?

Nej, det ok...

musicchart.dk> gør ikke noget kan-ikke-logge var hurtigst :)