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

  With Me!cbo都道府県
    Select Case Me!fraProperty
      Case 1
        'リスト行数を４に
        .ListRows = 4
      Case 2
        'リスト行数を１０に
        .ListRows = 10
    End Select
  End With

End Sub