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.
[blue]
Option Explicit
Private Declare Function MessageBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long
Private Sub Command1_Click()
MessageBoxTimeOut 0&, "Example MessageBox", "I'll disappear soon ...", vbInformation + vbOKOnly, 0&, Text1.Text
End Sub[/blue]