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

  With Me
    Select Case !fraProperty
      Case 1
        '区切り線を表示する
        .DividingLines = True
      Case 2
        '区切り線を表示しない
        .DividingLines = False
    End Select
  End With

End Sub