CÁCH TẠO CHữ CHẠY TRÊN FORM

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

Lưu ý là bạn phải gõ tiêu đề của form và set timer của form là 100 nhé.

·        Cách tạo

-         Nháy đúp lên màn hình Rorm, trong ô của sổ ta chọn rorm.

-         Vào thẻ format gõ tiêu đề.

-         Vào ovel để đặt thời gian

-         Ta vào menu view chọ code copy đoạn mã đó xuống cuối cùng rồi save là xong.