排除那些執行階段看不到控制項(編號：6515)

Dim MyControl as Control
For Each MyControl In Controls
... Do something ...
Next
因為有些屬性和方法不支援，請問如何排除那些執行階段看不到的Control如Timer,ImageList etc.