Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        liczba()
    End Sub


    Dim rnd As New Random
    Sub liczba()

        TextBox1.Clear()

        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        Randomize()

        Dim x As Integer
        For x = 1 To 100
            ProgressBar1.Value = x
            ProgressBar1.Value = x - 1
            ProgressBar1.Value = x
            System.Threading.Thread.Sleep(3)
        Next
        System.Threading.Thread.Sleep(1000)

        Do Until TextBox1.TextLength = 14
            TextBox1.Text = TextBox1.Text + rnd.Next(0, 9).ToString
        Loop
    End Sub
End Class