[Easy4ever]

اخي الكريم
قم بإن شاء مشروع جديد

وضع الادوات التالية

1- Text العدد 1
2- Command العدد 1
3- PictureBox العدد 1
4- Shape العدد 1

طبق الشرح للأخ ناجي إبراهيم في صنع اداة ProgressBar
لا تقم بأخذ الاكواد فقط خصائص Shape و PictureBox وطريقت وضعها في الفورم

الان ادخل لشاشة الاكواد وامسح كل ما هو موجود بالشاشة الاكواد وضع هذا الكود

كود :

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
    Shape1.Move Picture1.ScaleWidth, Picture1.ScaleTop, 0, Picture1.ScaleHeight
End Sub

Private Sub Command1_Click()

    Text1.Text = Text1.Text + "Êã "
    DoEvents
    Call MoveProgressBar
    Sleep 1000

    Text1.Text = Text1.Text + "ÇáÇäÊåÇÁ "
    DoEvents
    Call MoveProgressBar
    Sleep 1000

    Text1.Text = Text1.Text + "ãä "
    DoEvents
    Call MoveProgressBar
    Sleep 1000

    Text1.Text = Text1.Text + "ÚÑÖ "
    DoEvents
    Call MoveProgressBar
    Sleep 1000

    Text1.Text = Text1.Text + "ßÇãá "
    DoEvents
    Call MoveProgressBar
    Sleep 1000

    Text1.Text = Text1.Text + "ÇáÊÍãíá "
    DoEvents
    Call MoveProgressBar
    Sleep 1000

    Text1.Text = Text1.Text + "ÇáÐí "
    DoEvents
    Call MoveProgressBar
    Sleep 1000

    Text1.Text = Text1.Text + "ÇäÔÃÊå "
    DoEvents
    Call MoveProgressBar
    Sleep 1000

    Text1.Text = Text1.Text + "ÇáÃä "
    DoEvents
    Call MoveProgressBar
    Sleep 1000

    Text1.Text = Text1.Text + "ÈäÌÇÍ ."
    DoEvents
    Call MoveProgressBar
    Sleep 1000

End Sub

Sub MoveProgressBar()

    Dim I As Integer
    For I = 1 To 10
        If Shape1.Width < Picture1.ScaleWidth Then
            Shape1.Width = Shape1.Width + (Picture1.ScaleWidth / 100)
            Shape1.Left = 0
            Shape1.Top = 0
            
        Else
            MsgBox "Êã ÇáÅäåÇÁ ÇáÚãáíÉ"
        End If
    Next I

End Sub

نفذ البرنامج واعطني النتيجه

موفق اخي الكريم