[سؤال] كيف اسوي شريط انتظار - نسخة قابلة للطباعة

كود :
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