Private Sub Form_Load()
  Me.Tag = "open"
End Sub
 
Private Sub Form_Activate()
  If Me.Tag = "open" Then
    Me.Tag= ""
    DoEVents  
    SendKeys "%F", True
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de