Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Pon un timer en el formulario con las propiedades Enabled=True e Interval=500(o el nº que quieras claro) y agrega este código:
Dim titulo As String
Private Sub Form_Load() titulo = Me.Caption Me.Caption = "" End Sub
Private Sub Timer1_Timer() If Len(Me.Caption) >= Len(titulo) Then Me.Caption = "" Else Me.Caption = Left$(titulo, Len(Me.Caption) + 1) End If End Sub