'Form部分   Private Sub Form_Resize()   Dim H, i As Integer   On Error Resume Next   Resize_ALL Me 'Me是窗体名，Form1,Form2等等都可以 End Sub   '以下部分是设置form控件大小的部分 Public Type ctrObj   Name As String   Index As L