运行一个VB的EXE程序，怎么用API来获得一个控件的托动句柄？

Question

我想写一个有编辑功能的应用程序。如果说，在这个程序中，我加载很多的控件，加载后，想对加载的控件进行编辑，如放大，缩小等等，就像在VB设计窗体上一样，可对绘画的控件进行编辑，可以改变其大小，怎样才能获得那些控件的托动句柄？

Answer 1

在需要拖动时，用setwindowlong改变窗口风格，下面的例子是针对listbox的，其他控件类似处理：http://expert.csdn.net/Expert/topic/2554/2554204.xml?temp=4.136294E-02

Answer 2

Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Sub ReleaseCapture Lib "User32" ()
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const HTCAPTION = 2Public Sub MoveCom(ByVal hWnd As Long, ByVal Shift As Integer)
  If Shift = 1 Then
       Call ReleaseCapture
       SendMessage hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  End If
End Sub
以上只能移动控件