Vb中一个控件在编辑的时候可以随便移动位置，改变大小 我想在我的程序运行的时候 也让一个控件通过鼠标拖动，改变大小，位置等功能怎么实现？ VB code: Dim a!, x1!, y1!
Private Sub Frame1_MouseDown(frame As Integer, Shift As Integer, X As Single, Y As Single) x1 = X y1 = Y a = 1 End Sub Private Sub Frame1_MouseMove(frame As Integer, Shift As Integer, X As Single, Y As Single) If a = 1 Then Frame1.Left = (X - x1) + Frame1.Left Frame1.Top = (Y - y1) + Frame1.Top End If End Sub Private Sub Frame1_MouseUp(frame As Integer, Shift As Integer, X As Single, Y As Single) a = 0 End Sub
Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long)
