Buradaki değişken tanımları formun general decleration kısmındaki "option compare database" altına yapıştırılacak
Kod:
Dim a As String, b As String, i As Integer
Kod:
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
Kolay gelsin.