在执行代码时显示动画gif

Question

我有一些代码需要很长时间才能执行。当我按下表单上的按钮时，代码开始执行。 我想显示动画gif显示系统正在运行。当应用程序运行时，gif会一直显示进度，但是当我按下Button1时，代码开始执行，动画停止，然后在执行完成后，动画再次启动。

如何在执行代码时运行动画。

代码是：

Dim sqldatasourceenumerator1 As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
    Dim datatable1 As DataTable = sqldatasourceenumerator1.GetDataSources()

    DataGridView1.DataSource = datatable1

由于