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

dim kk As Boolean

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

    ‘包含

Else

     ‘不包含

end If