VarPtrを用いて ユーザー定義体の受渡しを行いたい (ID:78899)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ユーザー定義体を関数に渡したいのですが、訳があり Friend も タイプライブラリーも使えません そこでポインターで受渡ししようとするのですが、１回目はデバッガ−も正常に動作するのですが ２回目以降デバッカーを動かそうとすると ＶＢが不安定になり落ちてしまいます。 どなたか 良い方法を教えて頂けないでしょうか？ kouzou As ユーザー定義体 Func(VarPtr(kouzou)) Public Function Func(pPtrFIB1 As Long) As Boolean Dim iFlag As Long Dim wkFBlk1 As ユーザー定義体 Dim pPtrFIB1Dst As Long pPtrFIB1Dst = VarPtr(wkFBlk1) ' ポインターアドレスからユーザ定義情報を取得する。 MoveMemory ByVal pPtrFIB1Dst, ByVal pPtrFIB1, LenB(wkFBlk1) ↑ Api RtlMoveMemoryのこと