Tạo chữ động trong Access

Bạn tham khảo thử

Code

Private Sub Form_Timer()
Dim S As String
S = Me.Caption
S = Right(S, Len(S) - 1) & Left(S, 1)
Me.Caption = S
End Sub

và đặt thời gian tại timer interval: 200 or 300

nguồn: ahp
 
Back
Top