Private Function PrepareCode() As Long
Dim i As Long, codeStart As Long
codeStart = GetAlignedCodeStart(VarPtr(m_abCode(0)))
m_lCP = codeStart - VarPtr(m_abCode(0))
For i = 0 To m_lCP - 1
m_abCode(i) = &HCC
Next
PrepareStack
For i = UBound(m_lParameters) To 1 Step -1
AddByteToCode &H68 'push wwxxyyzz
AddLongToCode m_lParameters(i)
Next
AddCallToCode m_lpFn
If m_CallType = eCDecl Then
ClearStack
End If
AddByteToCode &HC3
AddByteToCode &HCC
PrepareCode = codeStart
End Function