简单而实用的遍历刷新vb窗体

'vb窗体东西多了，进行一定操作，界面显示就有点刷新不过来，搞的界面怪怪的，直接me.refresh 似乎无效， 刷新vb窗体的所有东东

Public function RefreshAll(byref formp as Form) as Boolean

     dim obj as Object

　　for each obj in formp

　　　　obj.refresh

　　next

End function