Skip to content

Instantly share code, notes, and snippets.

@rmdavy

rmdavy/MessageBoxExample.bas

Created November 28, 2020 14:29
Show Gist options
  • Save rmdavy/4b1da703c3a989070bd13142e7f3c03e to your computer and use it in GitHub Desktop.
Save rmdavy/4b1da703c3a989070bd13142e7f3c03e to your computer and use it in GitHub Desktop.
Download ZIP
Call MessageBoxA
Raw
MessageBoxExample.bas
Sub SayHello()
Dim RetVal As Long
RetVal = stdCallA("user32", "MessageBoxA", vbInteger, 0&, "Hello, this is a MessageBox", "MessageBox Example", 0& + 64&)
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment