Sub ModifySimpleForm()
Dim sNewCaption As String
Load frmSimpleForm
sNewCaption = InputBox("Enter a caption for the form.")
frmSimpleForm.Caption = sNewCaption
frmSimpleForm.Show
MsgBox "OK - same form again except with default caption", vbOKOnly
frmSimpleForm.Show
End Sub