Private Sub txtDatField_KeyDown _
　(Index As Integer, KeyCode As Integer, Shift As Integer)
　If Index = 1 Then ' 日付
　　Select Case KeyCode
　　　Case 38: ' ↑
　　　　cmdClose.SetFocus ' ［閉じる］
　　　Case 40: ' ↓
　　　　txtDatField(2).SetFocus ' 顧客番号
　　　End Select
　End If
　If Index = 2 Then ' 顧客番号
　　Select Case Key
　　　Code Case 38: ' ↑
　　　　txtDatField(1).SetFocus ' 日付
　　　Case 40: ' ↓
　　　　txtDatField(4).SetFocus ' 商品番号
　　　End Select
　End If
　If Index = 4 Then ' 商品番号
　　Select Case KeyCode
　　　Case 38: ' ↑
　　　　txtDatField(2).SetFocus ' 顧客番
　　　Case 40: ' ↓
　　　　txtDatField(7).SetFocus ' 数量
　　End Select
　End If
　If Index = 7 Then ' 数量
　　Select Case KeyCode
　　　Case 38: ' ↑
　　　　txtDatField(4).SetFocus ' 商品番号
　　　Case 40: ' ↓
　　　　cmdUpdate.SetFocus ' ［更新］
　　　End Select
　　End If
End Sub