改变窗口大小的“高级”问题

'-----------------------Module--------------------------Option Explicit
Public OldWindowProc As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Const WM_GETMINMAXINFO = &H24Type POINTAPI
     x As Long
     y As Long
End TypeType MINMAXINFO
        ptReserved As POINTAPI
        ptMaxSize As POINTAPI
        ptMaxPosition As POINTAPI
        ptMinTrackSize As POINTAPI
        ptMaxTrackSize As POINTAPI
End Type
Public Function SubClass1_WndMessage(ByVal hwnd As Long, ByVal Msg As Long, ByVal wp As Long, ByVal lp As Long) As Long
    
    If Msg = WM_GETMINMAXINFO Then        Dim MinMax As MINMAXINFO
        
        CopyMemory MinMax, ByVal lp, Len(MinMax)
        
        MinMax.ptMinTrackSize.x = 200
        MinMax.ptMinTrackSize.y = 300
        MinMax.ptMaxTrackSize.x = 640
        MinMax.ptMaxTrackSize.y = 480
        
        CopyMemory ByVal lp, MinMax, Len(MinMax)
        
        SubClass1_WndMessage = 1
        Exit Function
                
    End If
        
    SubClass1_WndMessage = CallWindowProc(OldWindowProc, hwnd, Msg, wp, lp)
        
End Function
'---------------------Form1-----------------------
Option ExplicitPrivate Const GWL_WNDPROC = (-4)
Private Sub Form_Load()
    
    OldWindowProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
    
    Call SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf SubClass1_WndMessage)
    
End Sub
Private Sub Form_Unload(Cancel As Integer)
    
    Call SetWindowLong(Me.hwnd, GWL_WNDPROC, OldWindowProc)End Sub
搞定！