(*´д`*)ウッ… VB初心者質問スレ Part15

[0001 エロチカセブン NG NG]

　　Part 1 http://piza.2ch.net/tech/kako/968/968328471.html
　　Part 2 http://piza.2ch.net/tech/kako/990/990793224.html
　　Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
　　Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
　　Part 5 http://pc.2ch.net/tech/kako/1010/10106/1010624646.html
　　Part 6 http://pc.2ch.net/tech/kako/1013/10138/1013844542.html
　　Part 7 http://pc.2ch.net/tech/kako/1015/10158/1015836357.html
　　Part 8 http://pc.2ch.net/tech/kako/1018/10187/1018794901.html
　　Part 9 http://pc.2ch.net/tech/kako/1020/10208/1020830472.html
　　Part10 http://pc.2ch.net/tech/kako/1022/10221/1022127528.html
　　Part11 http://pc.2ch.net/tech/kako/1024/10243/1024380249.html
　　Part12 http://pc3.2ch.net/test/read.cgi/tech/1026642565/
　　Part13 http://pc3.2ch.net/test/read.cgi/tech/1029241786/l50
Win32 API関連スレ
　　Win32API 質問箱 Build4
　　http://pc.2ch.net/test/read.cgi/tech/1023361418/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでOK。
４．インストーラーなどの質問もOK。
五．下ネタもたまにならOK

[0679 -- NG NG]

ステートメント1
ステートメント2
があって、
1を実行し終わって少し時間を置いてから2を実行したい場合はどうするのでしょうか？
ステートメント1
timer1_timer
ステートメント2
としてtimerを割り込ませてもすぐにステートメント2が実行されてしまいました。

[0680 -- NG NG]

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

Form1.Caption = "始まり" '（ステートメント1）

Timer1.Interval = 1000
t = 5
Timer1.Enabled = True

Timer1_Timer

Form1.Caption = "終わり" '（ステートメント2）

End Sub
'-----------------------------------
Private Sub Timer1_Timer()
i = i + 1
If i > t Then Timer1.Enabled = False: Exit Sub
End Sub
'-----------------------------------
これを実行すると
本当は5秒後にキャプションを"終わり"にしたいのに
実行開始直後に"終わり"と表示されてしまいました。