Sub SimpleFormExample()
ShowSimpleForm True
MsgBox "OK - Same form now, but modeless.", vbOKOnly
ShowSimpleForm False
MsgBox "Exiting the SimpleFormExample procedure.", vbOKOnly
End Sub
Private Sub ShowSimpleForm(bModal As Boolean)
If bModal Then
frmSimpleForm.Show vbModal
Else
frmSimpleForm.Show vbModeless
End If
End Sub