如图
thisform.OPTool .left=(thisform.Width-thisform.OPTool .width)/2
thisform.OPTool .top=thisform.Height-10-thisform.OPTool .height
thisform.photo.Left=(thisform.Width-thisform.photo .width)/2
thisform.photo.Top=(thisform.Height-10-thisform.OPTool .height-thisform.photo.height)/2
thisform.opTool .cmbFriend.displayvalue=1
thisform.split.Top=thisform.OPTool .top-8
thisform.split.Left=0
thisform.split.Width=thisform.Width
thisform.OPTool.cmbFriend.Interactivechange

具体是哪里出问题啦

貌似控件添加不成功

这两处有调用 cmbFriend 成员，查查这时 cmbFriend 是否存在？或是代码有误。
thisform.opTool .cmbFriend.displayvalue=1
thisform.OPTool.cmbFriend.Interactivechange