Article ID: 148853
Article Last Modified on 11/17/2000
BorderStyle: (set to anything but "Sizable") -or- ControlBox: No -or- Min Max Buttons: (set to anything but "Both Enabled")
BorderStyle: (set to anything but "Sizable")
-or-
ControlBox: No
-or-
Min Max Buttons: (set to anything but "Both Enabled")
Sub SizeToFitForm()
' Invoke the Window | Size to Fit Form menu command
DoCmd.DoMenuItem 0, 7, 6, 0, acMenuVer70
End Sub
Private Sub Form_Open(Cancel As Integer)
SizeToFitForm
End Sub
Additional query words: scroll bar bars shrink shrinking
Keywords: kbbug kbfix kbusage KB148853