[bakriano30@yahoo.com]

(06-01-20, 11:28 AM)3booody كتب : السلام عليكم ورحمة الله وبركاته

تتحكم بعدد النقاط عن طريق قيمة i

كود :

Dim i As Short = 1
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If i = 4 Then i = 1 'if i=4 بمعنى ثلاث نقاط اقصى عدد
       Dim s As New String("."c, i)
       Label1.Text = "stop" & s
       i += 1
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Interval = 1000
       Timer1.Start()
   End Sub

شكرا لك بس للأسف ما اشتغلش الكود معايا وماضفش النقط بجانب كلمه استوب