Run two events simultaneously - vb.net

Question

The code for my animated text already stored in my Table1 works very well without any error in my MDIParent1.But when I execute another code for exemple an print code when i click on Button_Print The animated text will stop Temporary and the animation of the text will be very heavy.Please How to run other code without effect on my animated text ?
My code in Module1
Public Sub Text_Panel_Animation()
Try
Dim da As New OleDbDataAdapter("Select * from Table1 order by Id", Con)
Dim dt As New DataTable
da.Fill(dt)
MDIParent1.Label1.Left = 0 - MDIParent1.Label1.Width
If dt.Rows.Count > 0 Then
For r As Integer = 1 To dt.Columns.Count - 1
MDIParent1.Label1.Text &= " " & (dt(0)(r).ToString)
Next
MDIParent1.Timer1.Start()
End If
Con.Close()
Catch ex As Exception
MsgBox(ex.Message(), MsgBoxStyle.Critical, "Error")
End Try
End Sub
In MDIParent1 Load .. I put this code :
Call Text_Panel_Animation()
And In MDIParent1 .. i have also :
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Label1.Left >= Me.Panel1.Width Then Label1.Left = 0 - Label1.Width
Label1.Left += 1
End Sub
I tried with this code but i have a same problem :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Task.Run(Sub()
Try
Dim Dt As New DataTable
Dim SQLstr As String = "Select * from Table1"
SQLstr = "Select * from Table1 order BY Id"
Dim Da As New OleDbDataAdapter(SQLstr, Con)
Da.Fill(Dt)
Dim Rpt As New Crystal1
Rpt.SetDataSource(Dt)
Dim frm As New Form1
Me.Dispose()
frm.Show()
Form1.CrystalReportViewer1.Zoom(100%)
Catch
End Try
End Sub)
End Sub

Answer 1

You can start the printing in a new task
Private Sub Button_Print_Click (sender As Object, e As EventArgs) Handles Button_Print.Click)
Task.Run(Sub()
'TODO: Do the printing here...
End Sub)
End Sub
Note that you have to take precautions to be able to access the UI from this other task. See: VB.NET: Invoke Method to update UI from secondary threads
I would not do any UI stuff in the other task, since this can lead to problems. Instead, I would only query the DB and render the report in another task and then await this task before doing UI-related things. I'm not using Crystal Reports myself, but it would probably be something like this
Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Rpt As Crystal1
Await Task.Run(
Sub()
Try
Dim Dt As New DataTable
Dim SQLstr As String
SQLstr = "Select * from Table1 order BY Id"
Dim Da As New OleDbDataAdapter(SQLstr, Con)
Da.Fill(Dt)
Rpt = New Crystal1
Rpt.SetDataSource(Dt)
Catch
End Try
End Sub)
Dim frm As New Form1
Me.Dispose()
frm.Show()
Form1.CrystalReportViewer1.Zoom(100%)
Form1.CrystalReportViewer1.ReportSource = Rpt
End Sub
Do not forget the Async keyword in the method header.
Note: If Me is the main form, then Me.Dispose() will terminate the application.