Private Sub Form_Activate()
  Static bActivated As Boolean
 
  If Not bActivated Then
    bActivated = True
    DoEvents
    On Error Resume Next
    Grid1.SetFocus
    Grid1.DoFilterEdit 2
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de