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

بسم الله الرحمن الرحيم
معرفة الوقت المنقضي



المثـــــــال في المرفقات

Abu Ehab كتب :

بسم الله الرحمن الرحيم
معرفة الوقت المنقضي



المثـــــــال في المرفقات

Abu Ehab كتب :طيب أنت شايف ProgressBar الموجود في صورة المثال الذي رفعته أنا لك ,,, هل هو شغال وأم لا ؟؟

Abu Ehab كتب :ما بعرف شو المشكلة عندك الصراحة
على كل الأحوال :
الكود بين يديك أستخدمه بالطريقة التى تناسبك .