Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Byte, ByRef source As Byte, ByVal Length As Integer) Private fkey(59) As Long 
Private pass(31) As Byte '这句话有问题,报错“索引超出了数组界限。”,是怎么回事啊,在vb6下运行通过 
CopyMemory(fkey(0), pass(0), 16)