Stop Form Resizing

Public Sub Hook(frm As Form)
  ' HOOK! Place the Call Hook(Me) code in your desired form
  lpPrevWndProc = SetWindowLong(frm.hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  ' WINDOWPROC! Does the actual subclassing
  If uMsg = WM_GETMINMAXINFO Then
   Dim MinMax As MINMAXINFO
   CopyMemory MinMax, ByVal lParam, Len(MinMax)
   MinMax.ptMinTrackSize.X = 100 ' Set this to the min width in PIXELS (not twip!)
   MinMax.ptMinTrackSize.Y = 100 ' Set this to the min height in PIXELS (not twip!)
   CopyMemory ByVal lParam, MinMax, Len(MinMax)
  Else
   WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
  End If
End Function
Public Sub Unhook(frm As Form)
  ' UNHOOK! Place the code Call Unhook(Me) in your form's Unload() event
  SetWindowLong frm.hwnd, GWL_WNDPROC, lpPrevWndProc
End Sub