[alsouf]

نضيف المكون المرفق  StringAnimator  للمشروع  ثم نبني المشروع Build
تظهر الاداة الهدف في اعلى صندوق الادوات نضيفها للنموذج و نغيير خصائصها مثل النص و الخلفية ... الخ
نكتب الدوال الوظيفية التالية في محرر الشفرات:
--------------------------
ننتقل للمحرر ونكتب شفرة الوظيفة التالية: في وسط الفئة (الكلاس)

Private Function TryIndent(ByVal func As Func(Of String, String)) As Boolean
       Dim source As String = Nothing
       Return TryIndent(source, func)
   End Function
--------------------------------
ثم شفرة الدالة الوظيفية
 
 Private Function TryIndent(ByRef source As String, ByVal func As Func(Of String, String)) As Boolean
       While func IsNot Nothing
           Dim src As String = source
           Dim dest As String = func(src)
           If src = dest Then
               Exit While
           End If
           If src <> dest Then
               Return True
           End If
       End While
       Return False
   End Function
----------------------------------------------------------
 في الزر المنفرد اذا اردنا نكتب الشفرة التالية   :يمكننا جعل زر للبداية و اخر للتوقيف.
Private Sub BtnStart_Click(sender As Object, e As EventArgs) Handles BtnStart.Click
If BtnStart.Text = "Start Animation" Then
StringAnimator1.StartAnimaion()
BtnStart.Text = "Stop"
Else
Me.StringAnimator1.StopAnimaion()
BtnStart.Text = "Start Animation"
End If

-------------------------------
المكون و التفاصيل و الشفرات مرفقة مع الشرح