Custom MsgBox - Arvin Meyer code...

[Presto]

Mr. Meyer if you're out there.....

I just found your Custom MsgBox Creator and really love it.
http://www.datastrat.com/DataStrat2.html

However, I can't seem to make this work. It won't compile and gives an error
about
" Sub of Function not defined." So I know I don't have something right
here.
I added the code that was generated to a button like this :
---------------------------------------------------------
Private Sub btnTEST_Click()

Call fMsgBox("MyDatabase has been Updated", _
"You have successfully updated MyDatabase ", _
-1, vbBlack, 0, _
"Please remind users to restart MyDatabase to get current updates", _
-1, vbRed, 0, _
"", _
"", 0)

 

[Arvin Meyer MVP]

Other than the End Sub, which you most likely just missed copying, I see
nothing wrong. I just downloaded the 2K version again and tested it with
your text and colors and it worked perfectly. I don't know what to tell you,
except to delete everything, compile, then compact. Then download a fresh
copy and try again.