主题：求一个全局代码或者内部函数的代码

项目中，当打开的窗口中包含表控件的时候，就。。。，当打开的窗口中不包含表控件的时候就。。。。

这个写个全局代码怎么写，

这个是窗口代码吧，不是全局代码啊？

代码如下，我的窗口就2种情况，包含表和不包含表的2种，如果打开的窗口中没有表，那么某控件不能用，如果有表就可以用，这个做个全局代码？内部函数？不想每个窗口都增加这么一段。

 

Dim kk As Boolean
Dim pg As WinForm.TabPage
 pg = Forms("窗口").Controls("TabControl1").TabPages(1)
For Each c As Control In e.Form.Controls
    If Typeof c Is WinForm.Table Then
        kk=  True
        Exit For
    End If
Next
If kk Then
   pg.Enabled = False  '包含'pg.Enabled = False
Else
   pg.Enabled = True '不包含
End If

你好，这样de话还是每个窗口都要加这么一句代码是吗？有没有办法所有窗口都不加这个代码，通过比如全局代码来实现呢？

好的谢谢了