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 Frame7_AfterUpdate()
If Me.Frame7.Value = 1 Then
Me.Frame7.Value = 4
Dim Response
Response = MsgBox("Don't be silly, you can't select a!", vbDefaultButton1, "Can't Select!") 'Send Msg
End If
End Sub