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 Declare Function MessageBox _
Lib "User32" Alias "MessageBoxA" _
(ByVal hWnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As Long) _
As Long
MsgBox "This is a VBA MsgBox", , "My Box"
MessageBox &0, "This is a native Message Box", "My Box", vbOKOnly
MessageBox &H0, "This is a native Message Box", "My Box", vbSystemModal
Dim Response As Long
Response = MessageBox(&O0, "Do you want to dance?", "My Question", vbYesNo + vbSystemModal)
If Response = vbYes Then
' Dance
Else
'
Sit on sidelines
End If
Private Declare Function APIMsgBox _
Lib "User32" Alias "MessageBoxA" _
(Optional ByVal hWnd As Long, _
Optional ByVal prompt As String, _
Optional ByVal title As String, _
Optional ByVal buttons As Long) _
As Long
Response = APIMsgBox(prompt:="Do you want to dance?", buttons:=vbYesNo)