−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
dllname USER
cdeclare long SendMessage(HWND, long, int, long);
dllname "shell32.dll"
cdeclare long ShellExecute(HWND,LPSTR,LPSTR,LPSTR,LPSTR,int);

dim 数,行$,語$,ファイル$,番,番$[1000]

'--------------------------------------------------------------------
const 白紙 = &h0184 '内容をリセットする
sub 常駐リスト白紙
    SendMessage(@@hwndToolListL, 白紙, 0, 0)
end sub
'--------------------------------------------------------------------
const 文字列送信 = &h0180'文字列追加
sub 文字列送信(text$)
    SendMessage(@@HwndToolListL,文字列送信 ,0,varptr(text$))
end sub
'一覧に項目を１つ追加（index=-1 のときは最後に追加）
'--------------------------------------------------------------------
const 文字列獲得=&h0189
function 文字列獲得$(index)
    dim x$ as string[1000]
    SendMessage(@@HwndToolListL, 文字列獲得, index, varptr(x$))
    文字列獲得$ = x$
end function
'--------------------------------------------------------------------
proc main
	@@redraw=0
	@line=1
	常駐リスト白紙
	行$=@TextCr$(@line) 
	数=1
	do while 1
		行$=@TextCr$(@line)
		文字列送信(行$)
		@MoveNextLineCr :数++
		if @line=@lastline then exit do
	loop
	語$="を<全文>読込みました"
	ファイル$=@filename$+語$
	@@ToolListUserDef ファイル$,macrofilename$ + ",右", \
		macrofilename$ + ",ダブル",macrofilename$ + ",シングル"
	@@ToolListType = 6	 'ユーザー定義一覧
	@@PrintToolList = 1	 'チェックしてゐる 
	@@ToolListPos = 3	 '常駐リストの位置
	@@redraw=1
	
end proc

proc 右
　 print "青人草"
end proc

proc ダブル
　print "いろは"
end proc

proc シングル
 print "あめつち"  
end proc

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−　

>proc 右
　 @@command$(1)
end proc

proc ダブル
　@@command$(2)
end proc

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
<取得できてゐた>ものを
<取得できてゐない>と思ひ込み
丁寧に　アラケンさんのサンプル見ながら
丁寧に復習したら　上記の記述に辿りつきました

これで<フォルダ一覧表>を<常駐リスト>に送り
＜該当フォルダ＞を開くことが出来ます

昔　意味もわからず動かしてゐたので
こんなことになるんですネ
今回　マクロヘルプも<テクストファイル>から丁寧に読み直し
ひとつひとつ　わかる用語を増やして行った結果　自己解決に辿り着けました

お騒がせでしたが
今後も　わからぬことだらけなので　宜しくお願ひします

○見出設定○に関連する質問です

現況
　�@見出設定の<インプットボックス>を呼び出し
　�A検索文字列　たとへば　○,□,▼　を選ぶと
　�B見出検索一覧表示され　常駐リストに見出項目が表示されます

やらうとして　できなく難儀してゐる所

　�Aと�Bの作業をマクロで書いて
　�Aと�Bを省略して　一発で　見出項目を常駐リストに表示させたい

−−質問−−
どんな記述にしたらいいでせうか？

宜しく　お願ひします

>○見出設定○に関連する質問です
>
>現況
>　�@見出設定の<インプットボックス>を呼び出し
>　�A検索文字列　たとへば　○,□,▼　を選ぶと
>　�B見出検索一覧表示され　常駐リストに見出項目が表示されます

↓　↓　↓

@@ListUserString$ = "検索したい文字列"
@@listAutoClose = -1
@ListUser

解決しました