>>680

タイマーの使い方を知らないみたいだな。

タイマーは インターバルに指定した時間がたったら、実行されるイベントだ。

正解はこれ。

Option Explicit
Public i, t As Integer
'----------------------------------
Private Sub Form_Load()

Form1.Caption = "始まり" '（ステートメント1）
Timer1.Interval = 1000
t = 5
i = 0
Timer1.Enabled = True

End Sub

'-----------------------------------
Private Sub Timer1_Timer()
i = i + 1

If i > t Then
Timer1.Enabled = False
Form1.Caption = "終わり" '（ステートメント2）
End If
End Sub
'-----------------------------------