Type TREEDATA	'ツリービューのリスト構造体
	hHandle As HWND	'ノードのハンドル
	buffer As BytePtr	'ノードのデータ
	NextPtr As BytePtr	'次のリストの構造体ポインタ
End Type

/* 子ノードのハンドルをすべて削除する関数 */
Function DeleteChildNodePointer(hHandle As HWND) As HWND
	Dim hChild As HWND
	Dim hNext As HWND

	'まず、削除対象のノードが子を持っていないかを確認する
	hChild=SendMessage(hTree,TVM_GETNEXTITEM,TVGN_CHILD,hHandle)
	If hChild<>0 Then
		'持っていればそいつのハンドルを取得（リエントラント）
		DeleteChildNodePointer(hChild)
	End If

	'持っていなければ次のノードを検索
	hNext=SendMessage(hTree,TVM_GETNEXTITEM,TVGN_NEXT,hChild)

	'ノードがあれば検出
	If hNext<>0 Then
		DeleteChildNodePointer(hNext)
	End If

	'ポインタを削除する
	DeletePointer(hHandle)
End Function

/* ハンドルから指定されたポインタリストを削除する */
Sub DeletePointer(hHandle As HWND)
	Dim pt As *TREEDATA
	Dim tp As *TREEDATA

	pt=FirstPtr
	tp=FirstPtr

	Do
		If pt=NULL Then
			Exit Do
		End If

		If pt->hHandle=hHandle Then
			If pt=FirstPtr Then
				'ポインタが最後ならつなぎ替える
				FirstPtr=pt->NextPtr

				free(pt->buffer)
				free(pt)

			Else
				tp->NextPtr=pt->NextPtr

				free(pt->buffer)
				free(pt)

			End If

			Exit Do
		End If

		tp=pt
		pt=pt->NextPtr

	Loop
	
End Sub