<DllImport("kernel32.dll")> Private Shared Function _
         WriteFile(ByVal hFile As Integer, ByVal Buffer As Byte(), _
         ByVal nNumberOfBytesToWrite As Integer, ByRef lpNumberOfBytesWritten _
         As Integer, _
         ByVal lpOverlapped As Integer) As Integer
End Function
 
    <DllImport("kernel32.dll")> Private Shared Function _
      ReadFile(ByVal hFile As Integer, ByVal Buffer As Byte(), _
      ByVal nNumberOfBytesToRead As Integer, ByRef lpNumberOfBytesRead As _
      Integer, _
      ByVal lpOverlapped As Integer) As Integer
End Function

VB RULEZ !