计时器的问题 - 编程论坛

我想在想要做一个启动界面，启动的时候需要检查配置文件这些是否正常，在左下角显示检查的项目和结果
但是一些项目检查的时候会比较长度，所以我定义了一个Timer，在运行的时候自动在后面加“.”，超过一定数量，又从0个开始
比如说：
测试数据库连接
测试数据库连接.
测试数据库连接..
测试数据库连接...
测试数据库连接....
测试数据库连接.....
测试数据库连接.
测试数据库连接..

下面是代码，当然是简化过的。调试发现，执行时候，Timer2—》 CheckALL-》Timer2，不是Timer2和CheckALL同时进行

求大神解决。

程序代码：

Private Sub FormLaunch_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer2.Interval = 200
        Timer2.Enabled = True
        CheckALL()
  End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If Label1.Text = "" Then Exit Sub
        Dim i As Integer
        i = InStrRev(Label1.Text, ":")
        Dim s1, s2 As String
        s1 = Strings.Left(Label1.Text, i)
        s2 = Strings.Right(Label1.Text, Len(Label1.Text) - i)
        If InStr(s2, ".") > 0 Or s2 = "" Then
            If Len(s2) < 5 Then
                s2 = s2 & " ."
            Else
                s2 = 0
            End If
        End If
        Label1.Text = s1 & s2
        Label1.Refresh()
    End Sub

  CheckALL()
   ’Step-1
   Lable1.text="检查配置文件："
    …… 此处无数代码跑过
   Lable1.text="检查配置文件：正常"

   ’Step-2
   Lable1.text="检查数据库连接："
    …… 此处无数代码跑过
   Lable1.text="检查数据库连接：正常

   'Step-3
    ……
   'Step-4
   ……
End Sub