[SaLoOoMX]

كود :

Try
            Label1.Text = "0"
            ProgressBar1.Value = 0
            Dim n As String
            n = My.Computer.Network.Ping(TextBox1.Text)
            ProgressBar1.Maximum = n.Length
            ProgressBar1.PerformStep()
            Label1.Text = ProgressBar1.Value & ("  %")
        Catch ex As Exception

        End Try