Option Explicit
 
' benötigte API-Deklaration
Private Declare Function WaitForSingleObject Lib _
  "kernel32" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long
 
' Ewartet wird die Zeitangabe in Millisekunden!
' z.B. 1000 für 1 Sekunde
Public Function Wait(ByVal mSek As Long)
  WaitForSingleObject -1, mSek
End Function
 
Private Sub Form_Load()
  Me.Show
  DoEvents
 
  Dim i As Long
 
  ' Form veschieben
  For i = 1 To 100
    Me.Top = Me.Top + 15
    Wait 50
  Next i
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de