MEMBUAT MARQUEE DI TITLE FORM

MEMBUAT MARQUEE DI TITLE FORM

TULISAN”pustakadigitalebook.blogspot.com” DI TITLE FORM AKAN MEMILIKI 

ANIMASI MARQUEE

TAMBAHKAN TIMER 1 BUAH ISI DENGAN KODE SEPERTI DIBAWAH INI

Private Sub Form_Load()

    judul = " pustakadigitalebook.blogspot.com  "

    Me.Caption = judul

End Sub

Private Sub Timer1_Timer()

    x = Left(judul, 1)

    y = Len(judul)

    z = Right(judul, y - 1)

   

    judul = z + x

    Me.Caption = judul

End Sub