>>140　の続き

基本的に終了処理だろうから、Functionを作るなりして別に分けて
置く事をお勧めする。

つまり

(Private か Public) Function Ending (ここはなんだったか忘れた)
m_bRunning = False
Set SceneFrame = Nothing
Set CameraFrame = Nothing
Set lightFrame = Nothing
Set light1 = Nothing
Set light2 = Nothing
Set rmDevice = Nothing
Set rmViewport = Nothing
Set ddClipper = Nothing
Set rm = Nothing
Set dd = Nothing
End Function

とかにして、終了処理はこちらに全部飛ばしてから終了と。