1) กำหนด Timer Interval ของฟอร์มให้มีค่าเป็น 1000 (หน่วยคือ milisecond)
2) ที่ module level กำหนดตัวแปร n เป็น integer
3) ที่ Form_Timer event procedure เขียนคำสั่งดังนี้

Private Sub Form_Timer()
    n = (n Mod 10) + 1
    Me!txtatime = n
End Sub

หลักการคร่าวๆมีเพียงเท่านี้ครับ

ขอบพระคุณที่อาจารย์แนะนำค่ะแต่ ยังไม่ได้ค่ะ
กำหนดตัวแปรเป็น integerแล้ว
เขียนcodeตามอาจารย์แล้ว
และกำหนดtimer intervalแล้ว
ขึ้นแค่เลข 1

ยังทำไม่ได้ค่ะ

Private Sub Form_Timer()
Me!txtatime = (Me!txtatime mod 10)+ 1
End Sub

-ขอบคุณค่ะ
ทำได้แล้วค่ะ

ขอย้ำว่า n ต้องกำหนดที่ module level   ไม่ใช่ที่ procedure level