Option Explicit

Private Sub Check1_Click(Index As Integer)
  Const sTitle As String = "CommandButtons mit farbiger Schrift"

  If Check1(Index).Value Then
    Check1(Index).Value = vbUnchecked
    Select Case Index
       Case 0:
         MsgBox "Der 'CheckBox-Button' mit Grafik und Text " & _
             "wurde geklickt!", vbOKOnly + vbInformation, sTitle
       Case 1:
         MsgBox "Der 'CheckBox-Button' mit farbigem Text " & _
             "wurde geklickt!", vbOKOnly + vbInformation, sTitle
       Case 2:
         Unload Me
         End
    End Select
  End If
End Sub