Private Sub sevGrid1_FilterButtonClick(ByVal nCol As Long, sText As String, _
  bCancel As Boolean)
  Me.TimerInterval = 250
End Sub
 
Private Sub Form1_Timer()
  Me.TimerInterval = 0
  SetFilter
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de