ACCESS

TULISAN BERGERAK DALAM ACCESS

Private Sub Form_Timer()
Dim Label As String
Dim Panjang As Integer
Label = "Ingat..... <<< Lakukan Input Data Dengan Benar Dan Teliti >>>      Thanks.....     , ****Tertanda Pemiik Movie Rental Buana Disc"
Panjang = Len(Label)
On Error Resume Next
    Me.Lbl_Jam.Caption = " Time : " & Time$
   
    If MHitung <= Panjang Then
        Me.Lbl_Owner.Caption = Left(Label, 1 + MHitung)
        'Me.Lbl_Owner.Caption = Right(Label, 1 + MHitung)
        MHitung = MHitung + 1
    Else
        Me.Lbl_Owner.Caption = Space(MHitung1) & Label
        MHitung1 = MHitung1 + 1
        If MHitung1 = 200 Then
            MHitung1 = 1
            MHitung = 0
        End If
    End If
End Sub