Copymemory使用出错！急，在线等候

我在程序中定义Type fstatus
  portno As Integer
  frame1 As Byte
  frame2 As Byte
  nid As Byte
  framed As Byte
  shour As Byte
  sminute As Byte
  ssecond As Byte
  syear As Integer
  smonth As Byte
  sday As Byte
  resultofselftext As Integer
  threshold As Integer
  tcr As Single
  longitude As Single
  latuitude As Single
  dop As Single
  frequency As Integer
  checksum As Byte
  frame3 As Byte
  frame4 As Byte
End Type类型
winsock编程，要将接受道的二进制串读到该类型
udp.GetData bt, vbArray + vbByte  'bt() as byte
CopyMemory(fs, bt(0), Len(fs))  ‘fs as fstatus
使用后显示fs的各项从syear后显示不正常，我接受的二进制创的格式按照这种类型定义的。为什么？
但是，我把读到的船保存到二进制文件，在按照字节顺序度有正常。