[451.xls]



' [mjSumple] のコード
'■■ コントロール間のフォーカスの移動順序を設定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()

    'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub cmdBtn_Click()
    txtInput1.TabIndex = 0
    txtInput2.TabIndex = 1
    txtInput3.TabIndex = 2
    txtInput4.TabIndex = 3
    txtInput5.TabIndex = 4
    
    txtInput1.SetFocus
End Sub