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

  With Me
    Select Case !fraProperty
      Case 1
        '画面上、上から下へタブ移動順を設定
        !受注コード.TabIndex = 0
        !得意先コード.TabIndex = 1
        !社員コード.TabIndex = 2
        !出荷先名.TabIndex = 3
        !出荷先郵便番号.TabIndex = 4
        !出荷先都道府県.TabIndex = 5
        !出荷先住所1.TabIndex = 6
      Case 2
        '画面上、下から上へタブ移動順を設定
        !受注コード.TabIndex = 6
        !得意先コード.TabIndex = 5
        !社員コード.TabIndex = 4
        !出荷先名.TabIndex = 3
        !出荷先郵便番号.TabIndex = 2
        !出荷先都道府県.TabIndex = 1
        !出荷先住所1.TabIndex = 0
    End Select
  End With

End Sub