■ CoTaskMemFree

タスクのメモリブロックを解放する処理です
VB の場合 この処理自体が必要ないかも知れませんが SHBrowseForFolder を使用してフォルダ選択のダイアログを表示した後
に VC などでは行う必要があるらしいです
処理がなくても動作は確認してますが あっても問題ないでしょう

Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long)

Dim l_ret             As Long               '' 解放するメモリ

'' ダイアログを表示する
l_ret = SHBrowseForFolder(w_tbrowseinfo)
          ・
          ・
          ・
'' 割り当てられたメモリを解放する
CoTaskMemFree l_ret