Membuat Efek Text Berjalan pada Visual Basic

Design FORM

General

Dim a As Integer

Dim b As String

 

Private Sub Form_Load()

a = 0

b = "Efek Text Berjalan Perkarakter"

End Sub

Private Sub Timer1_Timer()

‘text berjalan perkarakter

a = a + 1

Label1.Caption = Left(b, a)

If a = Len(b) Then

    a = 1

End If

‘text berkedip

If Label2.Visible = True Then

    Label2.Visible = False

Else

    Label2.Visible = True

End If

End Sub