Private Sub Coolbar1_ButtonClick(ByVal nButton As Long, ByVal sKey As String, _
  ByVal bValue As Boolean, Button As Integer, Shift As Integer)
 
  With Coolbar1
    If .Buttons(nButton).AllowAllUp = True And .Buttons(nButton).Style = _
      cbButtonGroup Then
      If bValue = True Then
        Dim i As Long
        For i = 1 To .ButtonCount
          If i <> nButton Then
            If .Buttons(i).Group = .Buttons(nButton).Group Then
              .Buttons(i).Checked = False
            End If
          End If
        Next i
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de