急！如何可以实现，当程序运行后，还可调节控件的大小？

Question

自己写程序实现
还有点麻烦
Public Declare Function SetCapture Lib "USER32" (ByVal hWnd As Long) As Long
Public Declare Function ReleaseCapture Lib "USER32" () As Long'在路口方向中移动，突出显示
Private Sub PicParts_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 0 Then Exit Sub
    
    With PicParts(Index)
        If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
            ReleaseCapture
            .BorderStyle = 0
        Else
            SetCapture .hWnd
            .BorderStyle = 1
            .MousePointer = vbCustom
        End If
    End With
End Sub这里给您提供一个mouseexit事件

Answer 1

Public Declare Function SetCapture Lib "USER32" (ByVal hWnd As Long) As Long
Public Declare Function ReleaseCapture Lib "USER32" () As Long这两句，编译不通过啊。

Answer 2

Public Declare Function SetCapture Lib "USER32" (ByVal hWnd As Long) As Long
Public Declare Function ReleaseCapture Lib "USER32" () As Long放在Module1里

Answer 3

我想是在form_resize事件中，写上相应的程序吧，还有很多呢
不是可控制控键吗，上面几位仁兄的必不可少，