追加。今は一番最初のところで
FormPtrpFrm;
ControlPtr pPopCtrlPntr;
ControlPtr pListCtrlPntr;

pFrm = FrmInitForm(1000);
FrmSetActiveForm(pFrm);
FrmDrawForm(pFrm);

pPopCtrlPntr = (ControlPtr )FrmGetObjectPtr(pFrm, FrmGetObjectIndex(pFrm, 1013));
pListCtrlPntr = (ControlPtr )FrmGetObjectPtr(pFrm, FrmGetObjectIndex(pFrm, 1014));

CtlSetLabel( (ControlPtr)pPopCtrlPntr, LstGetSelectionText( pListCtrlPntr, 3 ));
こんな風にやっているんだけど最初のところでしかできないし
もっと簡単にできないかという話なのです