窗体关闭时，怎么传递一个值给另一个窗体

窗体关闭时，如何传递一个值给另一个窗体？
在A窗体中，有一个搜索按钮，点击打开B窗体。在B窗体中，选择好一个ID，关闭B窗体时，如果将该ID传递给A窗体？

请大家告诉一个比较合适的方法，谢谢了！

[解决办法]
如果B窗体不是模态的,则可以在里面定义一个事件,A窗体接收事件.

或者,B窗体中定义一个变量,A窗体以模态启动B窗体,并在B窗体模态失效时检查这个变量.

以下是模态的思路代码:

B里面:

public lReturn as string

'B窗口的所有关闭与退出命令都只执行me.hide退出模态状态即可,不要unload me

A里面:

VB code

dim oFrm as new FrmBoFrm.show vbmodal,memsgbox ofrm.lreturnunload ofrmset ofrm=nothing
[解决办法]
将窗体当作函数用
http://topic.csdn.net/u/20071014/10/38ebc55e-690a-4f65-bb99-eeb211fdaa89.html 7楼