VB.NET : Caption Animata in VB.NET.

Per ottenere un simpatico effetto animazione della caption delle nostre applicazioni VB.NET possiamo utilizzare la seguente routine:

Public Sub CaptionThread()
  Dim strCaption As System.String = "Caption Animata ...."
  Dim counter As System.Int16
  While (True)
    For counter = 0 To strCaption.Length
      Me.Text = strCaption.Substring(0, counter)
      System.Threading.Thread.Sleep(100)
    Next
    For counter = 0 To strCaption.Length - 1
      Me.Text = strCaption.Substring(counter)
      System.Threading.Thread.Sleep(100)
    Next
  End While
End Sub

Questa deve essere eseguita in un apposito thread della nostra form:

Private AnimationCaptionThread As System.Threading.Thread

il quale deve essere avviato nell'evento load:

Private Sub Form1_Load(.....) Handles MyBase.Load
   .
   .
   AnimationCaptionThread = New System.Threading.Thread(AddressOf CaptionThread)
   AnimationCaptionThread .Start()
   .
   .
End Sub

ed arrestato nell'evento Closed:

Private Sub Form1_Closed(......) Handles MyBase.Closed
   .
   .
   AnimThread.Abort()
   .
   .
End Sub