DisableResizing

#If Win16 Then
Declare Function GetSystemMenu Lib "User" (ByVal hWnd As Integer, ByVal bRevert _
As Integer) As Integer
Declare Function ModifyMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition _
As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpString As _
Any) As Integer
Declare Function DeleteMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As _
Integer, ByVal wFlags As Integer) As Integer
#Else
Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As _
Long) As Long
Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As _
Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, _
ByVal lpString As String) As Long
Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As _
Long, ByVal wFlags As Long) As Long
#End If
#If Win16 Then
Declare Function SendMessage Lib "User" (ByVal hwnd As Integer, ByVal wMsg As _
Integer, ByVal wParam As Integer, lParam As Any) As Long
#Else
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As _
Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#End If
Private Sub Form_Load()
' 'Modify the system menu box so that

' 'the user cannot resize this form

Dim hMenu As Long
Const SC_SIZE = &HF000
Const MF_BYCOMMAND = &H0
hMenu = GetSystemMenu(hWnd, 0)
Call DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
End Sub