VB动态调用外部函数的方法[2]

    '返回呼叫函數
    addbytetocode &hc2 'ret 10h
    addbytetocode &h10
    addbytetocode &h0
   
    getcodestart = lngcodestart
end function

private sub addlongtocode(ldata as long)
'将long类型的参数写到m_opcode中
    copymemory m_opcode(m_opindex), ldata, 4
    m_opindex = m_opindex + 4
end sub

private sub addinttocode(idata as byte)
'将integer类型的参数写道m_opcode中
    copymemory m_opcode(m_opindex), idata, 2
    m_opindex = m_opindex + 2
end sub

private sub addbytetocode(bdata as byte)
    '将byte类型的参数写道m_opcode中
    m_opcode(m_opindex) = bdata
    m_opindex = m_opindex + 1
end sub