Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Form_Resize()
With <formName>
.Width = IIf(.Width < <minWidth>, <minWidth>, .Width)
.Height = IIf(.Height < <minHeight>, <minHeight>, .Height)
end with
end Sub
Private Sub Form_Resize()
With <formName>
If .WindowState = vbNormal Then
.Width = IIf(.Width < <minWidth>, <minWidth>, .Width)
.Height = IIf(.Height < <minHeight>, <minHeight>, .Height)
End If
end with
end Sub
Private Sub Form_Resize()
If Width < 8730 Then
If Me.WindowState <> vbMinimized Then
Width = 8730
dgrExpenseRecord.Width = 8415
End If
ElseIf Width >= 8730 Then
dgrExpenseRecord.Width = Width - 315
End If
If Height < 7065 Then
If Me.WindowState <> vbMinimized Then
Height = 7065
dgrExpenseRecord.Height = 2835
End If
ElseIf Height > 7065 Then
dgrExpenseRecord.Height = Height - 4230
End If
End Sub