Мультимедийный заголовок.

Этот термин придумал я довольно давно - когда-то в далеком 2007 я помню как уселся от нечего делать я состряпал код «мультимедийного заголовка» только ради прикола и украшения проги.

Посмотрите, может он и вам подойдет.

Создайте форму, разместите на ней Timer1. Остальную работу выполнит за Вас код:

Private Sub Form_Load()
Me.Caption = ""
Timer1.Interval = 200
Timer1 = True
End Sub

Private Sub Timer1_Timer()
Static scr%
Select Case scr
Case 0
Timer1.Interval = 200
Me.Caption = Mid("Softrate MultiTitle", 1, Len(Me.Caption)) & "_"
If Len(Me.Caption) = Len("Softrate MultiTitle_") Then scr = 1: Timer1.Interval = 1000
Case 1
Timer1.Interval = 100
If Len(Me.Caption) <= 2 Then Me.Caption = "": scr = 2: Timer1.Interval = 1000: Exit Sub
Me.Caption = Mid(Me.Caption, 1, Len(Me.Caption) - 2) & "_"
Case 2
Timer1.Interval = 200
Me.Caption = Mid("Версия 1.0 Alpha", 1, Len(Me.Caption)) & "_"
If Len(Me.Caption) = Len("Версия 1.0 Alpha_") Then scr = 3: Timer1.Interval = 1000
Case 3
Timer1.Interval = 100
If Len(Me.Caption) <= 2 Then Me.Caption = "": scr = 4: Timer1.Interval = 1000: Exit Sub
Me.Caption = Mid(Me.Caption, 1, Len(Me.Caption) - 2) & "_"
Case 4
Timer1.Interval = 200
Me.Caption = Mid("Влад Рубцов", 1, Len(Me.Caption)) & "_"
If Len(Me.Caption) = Len("Влад Рубцов_") Then scr = 5: Timer1.Interval = 1000
Case 5
Timer1.Interval = 100
If Len(Me.Caption) <= 2 Then Me.Caption = "": scr = 6: Timer1.Interval = 1000: Exit Sub
Me.Caption = Mid(Me.Caption, 1, Len(Me.Caption) - 2) & "_"
Case 6
Timer1.Interval = 200
Me.Caption = Mid("Заходите на мой сайт - http://vladikcomper.scanf.su", 1, Len(Me.Caption)) & "_"
If Len(Me.Caption) = Len("Заходите на мой сайт - http://vladikcomper.scanf.su_") Then scr = 7: Timer1.Interval = 1000
Case 7
Timer1.Interval = 100
If Len(Me.Caption) <= 2 Then Me.Caption = "": scr = 0: Timer1.Interval = 1000: Exit Sub
Me.Caption = Mid(Me.Caption, 1, Len(Me.Caption) - 2) & "_"
End Select
End Sub

Оригинальная статья Влада Рубцова. https://vladikcomper.scanf.su/