title: Run two events simultaneously
body: <p>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</p>
  
  <pre><code>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 &gt; 0 Then
              For r As Integer = 1 To dt.Columns.Count - 1
                  MDIParent1.Label1.Text &amp;= "  " &amp; (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
  </code></pre>
  
  <p>In MDIParent1 Load .. I put this code :</p>
  
  <pre><code> Call Text_Panel_Animation()
  </code></pre>
  
  <p>And In MDIParent1 .. i have also :</p>
  
  <pre><code>Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
      If Label1.Left &gt;= Me.Panel1.Width Then Label1.Left = 0 - Label1.Width
      Label1.Left += 1
  End Sub
  </code></pre>
  
  <p>I tried with this code but i have a same problem :</p>
  
  <pre><code>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
  </code></pre>