Private Sub cmdChangePic_Click()
ChangFormPic
End Sub
Private Sub ChangFormPic()
Filters = ""
Filters = Filters & "Bitmap Files (*.bmp),*.bmp"
Filters = Filters & ",JPEG Files (*.jpg),*.jpg"
Filters = Filters & ""
FilterIndex = 1
retval = Application.GetOpenFilename(Filters, FilterIndex)
Me.PictureSizeMode = fmPictureSizeModeStretch
Me.PictureAlignment = fmPictureAlignmentCenter
Me.Picture = LoadPicture(retval)
End Sub