Kod:
Option Compare Database
Dim a As String, b As String, i As Integer
Private Sub Form_Timer()
i = i + 1
a = "www.accesstr.net"
b = Space(100) & a
If i <= Len(b) - Len(a) Then
Me.Caption = Mid$(b, i, Len(b))
ElseIf i > Len(b) - Len(a) Then
Me.Caption = Space(1) & Me.Caption
If Len(Me.Caption) = Len(b) Then i = 0
End If
End Sub
https://accesstr.net/hareketli-form-resi...-1954.html