[fireswored1]

السلام عليكم ورحمة الله وبركاته 
اخوتي الاعزاء احتاج مساعدة في عمل كود رائي الجمهور واتصال بصديق وحذف اجابتن خطاء وتغير السؤال مع العلم اني استخدم قاعدة بيانات اكسس

[fireswored1]

اانا عملت تغير سؤل وحذف اجبتين لسة فضلئي الجمهور واتصال بصديق

[fireswored1]

تم حل اتصال بالصديق اريد برمجة فقط الجمهور برجاء المساعدة

[fireswored1]

السلام عليكم ورحمة الله وبركاته 
لقد قمت باستخدام هذا الكود لعمل رائي الجمهور ونجح ولكن لا ياتي بالاجابات صحيحة غير ذالك انا احتاج ان يقم الليبول باستخدام نسبة مئوية وتكون الالوان تصعد للاعلي وليس للاسفل مرفق الكود برجاء ان كان يوجد تعديل بشرح الاكواد اكون شاكر 

كود :

Imports System.Media

Public Class pupl
   Dim Hg As Integer = 1
   Dim Pic2Arry As PictureBox()
   Dim PicLoc, LabLoc As New ArrayList
   Dim Labpos As Label()
   Dim rand As New Random

   Private Sub TimProg_Tick(sender As Object, e As EventArgs) Handles TimProg.Tick
       Hg += 10
       PictureBox1.Size = New Size(30, Hg + 35)
       PictureBox2.Size = New Size(30, Hg + 10)
       PictureBox3.Size = New Size(30, Hg + 5)
       PictureBox4.Size = New Size(30, Hg)
       If Hg >= 100 Then
           TimProg.Stop()
       End If
   End Sub

   Private Sub pupl_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim sq As New SoundPlayer("gohor.wav")
       sq.Play()
       Label1.Text = fmlogin.Label2.Text
       Label2.Text = fmlogin.Label3.Text
       Label3.Text = fmlogin.Label4.Text
       Label4.Text = fmlogin.Label5.Text
       Pic2Arry = {PictureBox1, PictureBox2, PictureBox3, PictureBox4}
       Labpos = {Label1, Label2, Label3, Label4}
       PicLoc.Add(PictureBox1.Location)
       PicLoc.Add(PictureBox2.Location)
       PicLoc.Add(PictureBox3.Location)
       PicLoc.Add(PictureBox4.Location)
       LabLoc.Add(Label1.Location)
       LabLoc.Add(Label2.Location)
       LabLoc.Add(Label3.Location)
       LabLoc.Add(Label4.Location)
       For i = 0 To 3
           Dim p = rand.Next(0, PicLoc.Count)
           Pic2Arry(i).Location = PicLoc(p)
           Labpos(i).Location = LabLoc(p)
           PicLoc.RemoveAt(p)
           LabLoc.RemoveAt(p)
       Next

       Me.TopMost = True
       TimProg.Start()
       If fmlogin.Label11.Text = 0 Then
           fmlogin.Timer4.Stop()


       End If
   End Sub
End Class