Private Sub Form_Load()
  SetControlsVisible Me, False
  ...
End Sub
 
Private Sub Form_Activate()
  Static bFlag As Boolean
 
  If Not bFlag Then
    bFlag = True
    SetControlsVisible Me, True
  End If
End Sub
 
Public Sub SetControlsVisible(oForm As Form, ByVal bVisible As Boolean)
  Dim oControl As Control
 
  For Each oControl In oForm
    oControl.Visible = bVisible
  Next 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de