Option Explicit Private Sub Combo1_LostFocus() Combo1.TabStop = True End Sub Private Sub Form_Load() Combo1.TabStop = False Dim i As Long For i = 0 To 20 Combo1.AddItem i Next i End Sub
> Private Sub Text1_LostFocus() > Combo1.TabStop = True > End Sub ↓ では、だめですか? Private Sub Text1_Validate(Cancel As Boolean) Combo1.TabStop = True End Sub