aceさん、こんにちは。
御回答有難う御座います。

＞＞If IsValid(Message.PowerobjectParm) = False Then
＞＞ //単独で開かれたとき
＞＞ dw_1.SetItem(1,\"cd_1\",g_cd_1)
＞＞ dw_1.SetItem(1,\"cd_2\",g_cd_2)
＞＞Else
＞＞ //w_test_1から開かれたとき
＞//ここで
＞         MessageBox(\"確認\",message.PowerObjectParm.ClassName())  //この行を追加
＞＞ ls_test_1 = Message.PowerobjectParm
＞＞ dw_1.SetItem(1,\"cd_1\",ls_test_1.s_Cd_1)***この行でNULL オブジェクトの参照エラー発生
＞＞ dw_1.SetItem(1,\"cd_2\",ls_test_1.s_Cd_2)
＞＞End If
＞
＞この様にした場合、メッセージボックスに「s_test_1」が表示されますでしょうか？
＞されないのであれば、message.PowerObjectParm.ClassName() を使用し判定できませんか？

実際に開発環境では、この現象がおきにくく、
ユーザーの環境で、発生している問題なので、テストしにくいのですが、
開発環境ではメッセージボックスに「s_test_1」が表示されました。
どうやらmessage.PowerObjectParm.ClassName()の戻り値を
判定すれば、エラーの回避は出来そうですね。
大変有難う御座いました。