Public Sub Beispiel(ByVal vFrm As Form)
 
  CallByName vFrm, "Show", VbMethod 
  CallByName vFrm, "Refresh", vbMethod
 
 
End Sub

Option Explicit
 
Private Declare Function API_Sleep Lib "kernel32" Alias "SleepEx" (ByVal _
  dwMilliseconds As Long, ByVal bAlertable As Long) As Long
 
Private Sub Form_Load()
 
  Dim a()
 
  a = Array("Show", "Hide", "Show")
 
  b Me, a
 
End Sub
 
Private Sub b(ByRef o As Object, ByRef subs())
 
  Dim i As Long
 
  For i = LBound(subs) To UBound(subs)
 
    CallByName o, subs(i), VbMethod
    DoEvents
    API_Sleep 2000, 0
 
  Next i
 
End Sub

Gruß
Dirk

--
?Get it right the first time