vb+access 关于批量赋值的事,该如何解决

vb+access 关于批量赋值的事
VB+ACCESS 多窗口赋值问题

我有个代码

 Form2.Combo1 = Form1.ListView1.SelectedItem.SubItems(1) 


这个可以把FORM1的内容赋值给FORM2的控件，那么问题来了，我只有一个FORM1，但是我有3个窗口 Form2， Form3，Form4， 怎么赋值呢？   

像这样的代码
 Form2.Combo1 = Form1.ListView1.SelectedItem.SubItems(1) 
 Form3.Combo1 = Form1.ListView1.SelectedItem.SubItems(1) 
 Form4.Combo1 = Form1.ListView1.SelectedItem.SubItems(1) 


用什么去区分此时要赋值 Form2 、Form3  还是Form4呢 ？我有好多窗口，有没有简单的技巧呢    O(∩_∩)O谢谢
------解决思路----------------------
试试在每个form的Form_Activate事件中写入：

Private Sub Form_Activate()

    Combo1 = Form1.ListView1.SelectedItem.SubItems(1)

End Sub

------解决思路----------------------
如果你这几个窗口都是一样的话, 那么只需要在新窗口的加载事件中去主动"获取"值. 而不是在已有窗体中去给其他窗体"赋值"

不过, 说到底, 这样的用法谈不上好. 说到底是因为你把关键数据保存在了某个窗体的控件里. 而不是脱离窗体单独存在的变量. 
比如某个定义在模块中的全局变量. 

------解决思路----------------------
这是设计的问题啊。你到底需要传递数据的方式是“推”还“拉”？
假如是在Form1.ListView1的选择改变的事件中，把数据推送到某个窗体，那么先传给 Form1 一个标志啊，通过 SELECT .. CASE 语句就可以送到具体的窗体上。
假如是某个窗体主动从 Form1 中取数据，#3的方法就可以。