タイマーについて (ID:111935)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなことがしたいのかな Private Sub Form_Load() Label1.Caption = "10" Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Label1.Caption = CStr(Val(Label1.Caption) - 1) If Val(Label1.Caption) <= 0 Then Timer1.Enabled = False Form1.Hide Form2.Show End If End Sub