Private Sub fraProperty_AfterUpdate()
'[プロパティの設定]オプショングループの更新後処理

  With Me
    'フォームの標題を切り替える
    Select Case !fraProperty
      Case 1
        .Caption = "フォームの標題を切り替えました"
      Case 2
        .Caption = "標題-2"
      Case 3
        .Caption = "標題-3"
      Case 4
        .Caption = "標題-4"
    End Select

    'コマンドボタンの標題をフォームの標題に合わせる
    Me!cmdButton.Caption = .Caption

  End With

End Sub