[ابو ابراهيم]

مرحبا اخي عبدالله الصافي

اخي عملتك مثال بال vb.net 2010 ولم انتبه انك تستفسر عن vb6

لاكن الفكرة سهلة طبق اخي مع هالخطوات

أعمل فروم جديد
وأدرج التالي

كود :

Timer1
ProgressBar1
Button1
Button2
Button3
Button4

في حدث الفروم لود


Form1_Load

كود :

If Me.Timer1.Enabled = True Then
            Me.Timer1.Enabled = False
        End If

ثم في حدث التايمر
Timer1_Tick

كود :

If Me.ProgressBar1.Value < Me.ProgressBar1.Maximum Then
            Me.ProgressBar1.Value += 1
            If Me.ProgressBar1.Value = Me.ProgressBar1.Maximum Then
                Me.ProgressBar1.Value = 0
                Me.Timer1.Enabled = False
            End If
        Else
            Me.Timer1.Enabled = False
        End If

اللحين في حدث Button1_Click سمية تشغيل

كود :

If Me.Timer1.Enabled = False Then
            Me.Timer1.Enabled = True
        End If

اللحين في حدث Button2_Click سمية ايقاف

كود :

If Me.Timer1.Enabled = True Then
            Me.Timer1.Enabled = False
        End If

اللحين في حدث Button3_Click سمية أظهر الرسالة

كود :

MsgBox("Test")

اللحين في حدث Button4_Click سمية خروج

كود :

End

قبل ما تشغل تأكد من أن ضبط التايمر على النحو التالي

كود :

Timer1.Interval = 100
Timer1.Enabled = False

وراح ارفقلك المثال بالدوت نت
وشكرا