'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