BELAJAR EXCEL VBA - CARA MUDAH MEMBUAT RUNNING TEXT DI USERFORM

BUATLAH SEBUAH USERFORM DENGAN 1 BUAH LABEL YAITU LABEL 1

PASTEKAN SEMUA KODE BERIKUT PADA USERFORM 

Private Sub UserForm_Activate()
    Call Mulai
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Berhenti = True
    If CloseMode = 0 Then
Cancel = True
MsgBox "Untuk  menutup Form silakan klik tomblo CLOSE", vbCritical
End If
    Unload Me
End Sub

Private Sub Mulai()
    Dim J As Long
    Awal:
    DoEvents
    If Berhenti = True Then Exit Sub
    Label1.Left = Label1.Left - 2
    If Label1.Left <= -Me.Width Then Label1.Left = Me.Width
    For J = 1 To 5500019: Next
    GoTo Awal
End Sub


SAMPEL FILE xlsm  unduh  >>>> DISINI

SEMOGA BERMANFAAT !!!