Private Sub buttonA_Click(sender As Object, e As EventArgs) Handles buttonA.Click '30秒後にTickイベントを発生させるタイマーを作成。 Dim timer As New Timer With {.Interval = 30 * 1000, .Enabled = True} '非同期でProcessBを実行する処理を作成し、Tickイベント時に実行するようにしておく。 Dim task As New Task(Sub() ProcessB(timer)) AddHandler timer.Tick, Sub(s, args) task.Start() End Sub Private Sub ProcessB(timer As Timer) timer.Enabled = False timer.Dispose() MsgBox("処理Bを実行しました。") End Sub Private Sub buttonC_Click(sender As Object, e As EventArgs) Handles buttonC.Click '50秒後にTickイベントを発生させるタイマーを作成。 Dim timer As New Timer With {.Interval = 50 * 1000, .Enabled = True} '非同期でProcessDを実行する処理を作成し、Tickイベント時に実行するようにしておく。 Dim task As New Task(Sub() ProcessD(timer)) AddHandler timer.Tick, Sub(s, args) task.Start() End Sub Private Sub ProcessD(timer As Timer) timer.Enabled = False timer.Dispose() MsgBox("処理Dを実行しました。") End Sub