Private Sub buttonA_Click(sender As Object, e As EventArgs) Handles buttonA.Click

    Task.Delay(30 * 1000).ContinueWith(Sub() ProcessB())

End Sub



Private Sub ProcessB()

    MsgBox("処理Bを実行しました。")

End Sub



Private Sub buttonC_Click(sender As Object, e As EventArgs) Handles buttonC.Click

    Task.Delay(50 * 1000).ContinueWith(Sub() ProcessD())

End Sub



Private Sub ProcessD()

    MsgBox("処理Dを実行しました。")

End Sub