If you look at the code behind the CommandButton you will see:
Private Sub cmdChangeMDI_Click()
Dim blRet As Boolean
' Since we are not passing a filename of a Bitmap file
' the standard Window File Dialog will popup.
blRet = SetMDIBackGroundImage()
End Sub
The SetMDIBackGroundImage Sub is coded to take an optional string
parameter to specify a filename. If you do not pass a filename then the
standard Windows File Dialog is opened for the user to select a file.
So to specify a file simply pass a valid string containing the full path
and filename of the desired image.
Private Sub cmdChangeMDI_Click()
Dim blRet As Boolean
' Since we are not passing a filename of a Bitmap file
' the standard Window File Dialog will popup.
blRet = SetMDIBackGroundImage("C:\1.bmp")
End Sub
--
HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.