private Sub Form_Load()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail:
[email protected]
Dim Ret As Long
'set the graphics mode to persistent
Me.AutoRedraw = True
'print some text
Me.Print "Click the form to abort the filecopy"
'show the form...