主题：[求助]不知道哪里不对，请指教！

 我在一个录入窗口中，单击某控件后（ComboBox,TextBox,Label这三个控件）后弹出一个'选择窗口'，任意一个单击
Vars("返回控件名")=e.Sender.name
Vars("返回窗口名")=e.Form.name
Vars("返回控件类型")=e.sender.gettype.name
forms("地区选择窗口").Open

以下是选择窗口中，目录树的节点双击中的命令（因为控件的类型不一样，所以其属性也不一样）
dim a as string=Vars("返回控件类型") 
Select Case  a
Case "ComboBox" 
Forms("" &Vars("返回窗口名")& "").Controls("" &Vars("返回控件名")& "").value=vals(1)
Case "Label"
Forms("" &Vars("返回窗口名")& "").Controls("" &Vars("返回控件名")& "").text=vals(1)
Case "TexBox"
Forms("" &Vars("返回窗口名")& "").Controls("" &Vars("返回控件名")& "").value=vals(1)
End Select

                                    最后怎么只有  控件类型为 lable的控件可从'选择窗口'  中返回一个数据？？其它的无效呢？

 一定要有示例才可以看明白？

 不求帮我做出，只求代码的正确性，行不？