>>102
・TabIndexを一番若くしておくとか
・無駄に一つだけタイマーを配置して、次のようにしてみるとか
Option Explicit
Private WithEvents Tmr  As Timer
Private WithEvents Btn1 As CommandButton
Private WithEvents Btn2 As CommandButton

Private Sub Form_Load()
    Set Tmr = Me.Controls.Add("VB.Timer", "Tmr")
    Set Btn1 = Me.Controls.Add("VB.CommandButton", "Btn1")
    Set Btn2 = Me.Controls.Add("VB.CommandButton", "Btn2")
    With Tmr: .Interval = 1: .Enabled = True: End With
    With Btn1: .Move 0, 0, 1000, 1000: .Caption = "Button1": .Visible = True: End With
    With Btn2: .Move 0, 1000, 1000, 1000: .Caption = "Button2": .Visible = True: End With
End Sub
    
Private Sub Tmr_Timer()
    Tmr.Enabled = False
    'Call Btn1.SetFocus  'Button1にフォーカス
    Call Btn2.SetFocus  'Button2にフォーカス
End Sub