十万火急，请问怎样可以改变无标题栏窗体大小？？？？？？？？？

[possible_Y]

十万火急，请问怎样可以改变无标题栏窗体大小？？？？？？？？？

[zyl910]

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const WS_THICKFRAME = &H40000

Private Const GWL_STYLE = (-16)

Private Sub Form_Load()
Dim TempLng As Long

TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
TempLng = TempLng Or WS_THICKFRAME '用可改变大小的边框
SetWindowLong Me.hwnd, GWL_STYLE, TempLng

End Sub