ว้าว ทำอักษรวิ่งได้ด้วยเหรอครับ
ไม่ทราบว่าจะรบกวนขอโคตบ้างได้มั๊ยครับ อยากได้บ้าง
ขอบคุณครับ

ผมใช้แบบนี้ครับ ใช้ Timer ช่วย
ที่ Form ตั้ง TimerInterval = 100 'หรือตามความเร็ว/ช้าที่ต้องการ
และมี Label ตัว ดังนี้

Option Compare Database
Option Explicit
Const myMsg As String = " คิดดี พูดดี ทำดี"

Private Sub Form_Timer()
   Static i As Byte
   i = i + 1
   If i = 20 Then
        Label0.Caption = Space(20) & myMsg
        i = 1
   End If
   Label0.Caption = Mid(Label0.Caption, i)
End Sub

ลองปรับใช้ดูนะครับ
^J^

:-) ขอบพระคุณมากครับ เดี๋ยวต้องลองดูสักหน่อย

ทำแล้วไม่วิ่งเลยครับ

วิ่งได้ดีครับ แปลกดี ขอบคุณนะครับ ^ /|\ ^