Private a as int23
 
Private Sub ViewFile (Datei as IO.File)
 
'... Ermitteln der Dateigenschaften
'.... Werte den Labels zuweisen
 
Timer1.Enable = True
 
Do While a < Wertxy
'Im Timerereignis wird a addiert
Loop
 
'Erst wenn die Zeit WertXy (z.B nach 1 Sekunde )verstrichen ist, soll das 
' Formular aufgeklappt werden
Me.Height = 620
 
End Sub