VB中控件大小随窗体大小变化而变化

　　　　　pfrmIn.WindowState = 1
　　　　End If
　　　　　Exit Sub
　　　End If
　　Next i
　End If
End Sub

Public Sub Resize_ALL(Form_Name As Form)

　Dim OBJ As Object
　For Each OBJ In Form_Name
　　ResizeControl OBJ, Form_Name
　Next OBJ
End Sub

Public Sub DragForm(frm As Form)

　On Local Error Resume Next
　Call ReleaseCapture
　Call SendMessage(frm.hwnd, WM_NCLBUTTONDOWN, 2, 0)

End Sub

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!