[tariq2812]

كود :

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Label1.Text.Length >= 6 Then
            Label1.Text &= "."
        End If

        If Label1.Text.Length >= 11 Then

            Label1.Text = "Label1"
        End If
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Label1"
        Timer1.Interval = 500
    End Sub