Thanks.

If MyBo.IsDirty Then
     If MicroFour.StrataFrame.Messaging.MessageForm.ShowMessage(...) = Yes Then
           MyBo.Save()
     End If
End If

Dim llDirty As Boolean = False

For Each (loBO As BusinessLayer In Me.GetListOfSaveBOs())
    If loBO.IsDirty Then
        llDirty = True
        Exit For
    End If
Next

If llDirty AndAlso MicroFour.StrataFrame.Messaging.MessageForm.ShowMessage(...) = Yes Then
    MyBo.Save()
End If

The list of business objects that are included in the form's save is determined by the IncludeInForm* settings.