如何取得Double值各个Byte的内容

重点在於使用LSet的方式将某个Structure Copy 到另外的Structure
Private Type A_Double
    dblValue as Double
End Type
Private type a_ByteAry
    ByteVal(0 to 7) as Byte
End Type

Private Sub Form_Load()
Dim dbl As A_Double, i As Long
Dim byteAry As a_ByteAry
dbl.dblValue = 5.1
LSet byteAry = dbl
For i = 0 To 7
  Debug.Print byteAry.ByteVal(i)
Next i
End Sub