VB实现的FileStream代码

' Powered by barenx
'  Global Memory Flags
Private   Const  GMEM_MOVEABLE  =   & H2
Private   Const  GMEM_ZEROINIT  =   & H40
Private   Const  GENERIC_READ  =   & H80000000
Private   Const  FILE_SHARE_READ  =   & H1
Private   Const  OPEN_EXISTING  =   & H3
Private   Const  FILE_ATTRIBUTE_TEMPORARY  =   & H100
Private   Const  S_OK  =   & H0
Private   Const  GHND  =  (GMEM_MOVEABLE  Or  GMEM_ZEROINIT)
Private  Type SECURITY_ATTRIBUTES
    nLength  As   Long
    lpSecurityDescriptor  As   Long
    bInheritHandle  As   Long
End  Type
Private  Type OVERLAPPED
    Internal  As   Long
    InternalHigh  As   Long
    offset  As   Long
    OffsetHigh  As   Long
    hEvent  As   Long
End