Как выбрать Folder в Common Dialog? - VB

Формулировка задачи:

Про OFN.Initdir это не то естественно.
Т.е. диалог уже запущен.
Например я могу узнать текущий folder, выбранный органами управления диалога:

OFNHookProcOpen( hWnd  , _
                             uMsg  , _
                             wParam  , _
                             lParam  )  
...
     uMsg
...
       WM_NOTIFY
            CopyMemory tNMH,  lParam, Len(tNMH)
              tNMH.code
                CDN_FOLDERCHANGE
                    hWndParent = GetParent(hWnd)
                    gszPath = $(MAX_PATH, )
                    SendMessageByString hWndParent, CDM_GETFOLDERPATH, MAX_PATH, gszPath
                    szTrimNull gszPath
                    Debug. gszPath

А я хочу теперь обратную процедуру!
Т.е. установить этот (DO_SET)FOLDERPATH извне
С ходу не нашел.
Или текст в ID_LIST пытаться поменять?

Решение задачи: «Как выбрать Folder в Common Dialog?»

textual
                            Листинг программы 
                        

                            <font color="00AA00">'Поле имя файла заполняется путем к требуемой Folder</font>
<font color="blue">Call</font> SendMessage(Val(frmOpen.Tag), CDM_SETCONTROLTEXT, ID_FILETEXT, <font color="blue">ByVal</font> CStr(Node.Tag))
<font color="00AA00">'программа щелкает по кнопке <font color="teal">"Открыть"</font>, и это переводит Common Dialog в заданную фолдер</font>
<font color="blue">Call</font> SendMessage(GetDlgItem(Val(frmOpen.Tag), ID_OPEN), BM_CLICK, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>)
<font color="00AA00">'поле <font color="teal">"Имя файла"</font> очищается</font>
<font color="blue">Call</font> SendMessage(Val(frmOpen.Tag), CDM_SETCONTROLTEXT, ID_FILETEXT, <font color="blue">ByVal</font> <font color="teal">""</font>) 'очистка поля
                        